vbs

vbs - VB/VBA/VBS - Programmation

Marsh Posté le 22-09-2011 à 16:41:37    

Bonjour a tous, voila il y a quelque temps j'ai créer un petit programme pour moi.
j'aimerai pouvoir afficher le contenue d'un dossier dans une fenetre pour ensuite taper manuellement dans une Inpubox mon choix et executer mes tache ensuite.
mais je n'arrive pas a afficher le contenu du dossier.
pouvez-vous m'aider s'il vous plait  

Reply

Marsh Posté le 22-09-2011 à 16:41:37   

Reply

Marsh Posté le 22-09-2011 à 21:09:25    

Voici comment afficher le contenu d'un dossier en VBS :

' --------------------------------------
' Affiche tous les fichiers d'un dossier
' --------------------------------------
my_folder = "le_dossier"
Set fso = CreateObject("Scripting.FileSystemObject" )
Set f = fso.GetFolder(my_folder)
Set fc = f.Files
list_of_files = "Dans le dossier " & my_folder & ", il y a :" & VbCrLF & VbCrLF
For Each f1 in fc
  ' Wscript.Echo f1.name
  list_of_files = list_of_files & f1.name & VbCrLF
Next
Wscript.Echo list_of_files

Par contre, je ne sais pas comment faire une InputBox en VBS.

Reply

Marsh Posté le 22-09-2011 à 21:31:02    

Merci pour ton aide  
 
pour une inputbox tu fais simplement  
 
 
Dim Texte
 
Texte = Inputbox("veux-tu faire avec" )
 
 
'ensuite tu recupere la variable Texte pour en faire ce que tu veux  
 
:-D

Reply

Marsh Posté le 23-09-2011 à 10:06:13    

Merci !
Donc voici une version avec l'Inputbox, et en commentaires, j'ai ajouté d'autres choses qu'on peut récupérer à propos d'un fichier :

' --------------------------------------  
' Affiche tous les fichiers d'un dossier  
' --------------------------------------  
my_folder = Inputbox("Chemin du dossier ?" )
Set fso = CreateObject("Scripting.FileSystemObject" )  
Set f = fso.GetFolder(my_folder)  
Set fc = f.Files  
list_of_files = "Dans le dossier " & my_folder & ", il y a :" & VbCrLF & VbCrLF  
For Each f1 in fc  
  ' Wscript.Echo f1.name  
  ' Wscript.Echo f1.path  'nom complet
  ' Wscript.Echo fso.GetExtensionName(f1)
  ' Wscript.Echo fso.GetBaseName(f1)
  list_of_files = list_of_files & f1.name & VbCrLF  
Next  
Wscript.Echo list_of_files

Reply

Sujets relatifs:

Leave a Replay

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