comment ouvrir un dossier depuis vbs

comment ouvrir un dossier depuis vbs - VB/VBA/VBS - Programmation

Marsh Posté le 07-07-2005 à 17:39:41    


 
bonjour je cherche a ouvrir "mes documents" par exemple. Je voudrais juste ouvrir ce dossier.
Pour expliquer un peu plus en detail, le vbs vient de creer un fichier .doc dans "mes documents" et je voudrais pouvoir acceder au dossier pour voir les documents qui sont dans ce dossier. Et je veux les voir visuelement parce que j'arrive a recuperer par le vbs le nom de ses fichiers ou memes les lancés mais par contre ouvrir la fenetre windows qui contient ses fichiers je seche.
Si quelqu'un a une idée merci par avance.
Ca doit etre un truc du genre openfolder(C:\......\mes documents) non?

Reply

Marsh Posté le 07-07-2005 à 17:39:41   

Reply

Marsh Posté le 20-09-2005 à 15:25:58    

Si jamais une réponse vous a été apporté ou que vous avez finit par trouver la solution pourriez vous me la communiquer car je cherche à faire exactement la même chose et je n'y arrive pas non plus.

Reply

Marsh Posté le 20-09-2005 à 16:39:54    

Bonjour,
 
Ca ferait ton bonheur ç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 22-09-2005 à 08:24:42    

ça marche aussi sous VBA ?
Et comment tu lances ça ?? (quand je l'insère dans une macro il me sort une syntax error)

Reply

Marsh Posté le 22-09-2005 à 10:18:57    

Re,
 
Il faut déclarer la référence Scripting Runtime

Reply

Marsh Posté le 22-09-2005 à 11:23:43    

Oki merci beaucoup !!

Reply

Marsh Posté le 22-09-2005 à 14:51:32    

Sinon G trouvé ça ça marche super...
 
Sub explorateur_ouvrir_repertoire()
Shell "C:\WINDOWS\EXPLORER.EXE /n,/e,C:\", vbNormalFocus  
End Sub

Reply

Sujets relatifs:

Leave a Replay

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