Path Relatif / Absolue dans "opentextfile" - VB/VBA/VBS - Programmation
Marsh Posté le 30-12-2004 à 16:17:57
C'est possible de faire ça avec tous les outils CreateDirectory, FolderExists etc etc..
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
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
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
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"
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
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