Path Relatif / Absolue dans "opentextfile"

Path Relatif / Absolue dans "opentextfile" - VB/VBA/VBS - Programmation

Marsh Posté le 30-12-2004 à 16:06:30    

bonjour,
 
j'aimerais pvr utiliser un path relatif a mon programem plutot que de donner le che complet
 
pour le moment jutilise ca  

Code :
  1. attak = fsatt.opentextfile("C:\attak.txt", enlecture, False)


 
mais j'aimerais donc pouvoir mettre le programme dans F:\test1\blabla\ avec mon fichier attak.txt dedans , sans avoir a recompiler pour changer le path en dur!
 
Le must serait de mettre un mini browser pour que l'utilisateur montre ou est le fichier (sans tapper le chemin) mais je sais pas si c'est possible en VB ca :'(
 
 
aplusche!
folk

Reply

Marsh Posté le 30-12-2004 à 16:06:30   

Reply

Marsh Posté le 30-12-2004 à 16:17:57    

C'est possible de faire ça :) avec tous les outils CreateDirectory, FolderExists etc etc..

Reply

Marsh Posté le 30-12-2004 à 16:19:18    

Bonjour,
 
Il ya ça :
Dim WshObj
Set WshObj = Wscript.CreateObject("WScript.Shell" )
' Ouvrir avec
'WshObj.Run "RunDll32.exe Shell32.dll,OpenAs_RunDLL", 1, True
 
ou ça :
'// Create the Object
'cd = new ActiveXObject("MSComDlg.CommonDialog" )
set cd = CreateObject("MSComDlg.CommonDialog" )
 
'// Set file filter
cd.Filter = "All Files(*.*)|*.*|JScript Files(*.js)|*.js"
cd.FilterIndex = 2
 
'// Must set MaxFileSize. Otherwise you will get an error
cd.MaxFileSize = 128
 
'// Show it to user
cd.ShowOpen()
 
'// Retrieve file + path
file = cd.FileName
 
'// If the user does enter file exit
if file = "" then
   WScript.Echo("You must enter a file name" )
   WScript.Quit(0)
else
   WScript.Echo("The user selected:\n" + file )
end if

Reply

Marsh Posté le 30-12-2004 à 16:31:17    

erf erf :)
merci pour les reponses... mais.. avec mon niveau je dois dire que je ne comprend pas grand chose :'(
 
et surtout je ne vois pas comment utiliser le code :/ il me met des erreurs a la compile ou alors le prog plante

Reply

Marsh Posté le 30-12-2004 à 16:34:41    

Re,
 
Quelles erreurs ?
Peux-tu préciser.

Reply

Marsh Posté le 30-12-2004 à 16:36:27    

en fait je dois mal utiliser ton code...
 
j'ai creer un bouton est collé ton code dans la partie associé au bouton.. pour qu'il charge l'objet.. :/
 
sinon j'ai un probleme pour declarer WScript
j'ai rajouté  
Dim WScript
mais sans succes

Reply

Marsh Posté le 31-12-2004 à 08:01:51    

Re,
Tu dois ajouter la référence à VbScript
Dans VB6, Menu Projet, Références, et tu coches "Microsoft Scripting Runtime"

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed