Sélectionner fichier .txt dans un dossier rempli
Bonjour à tous,
Le titre n'est pas très parlant mais je vais éclaircir tout ça.
Je dois créer un script qui va :
1) Va afficher une MessageBox
2) Le titre de la MessageBox sera le nom du fichier .txt qui contiendra le texte qui sera affiché dans la MessageBox
3) Devoir aller dans le dossier que je lui aurai indiqué dans lequel sera stocké un seul et unique fichier .txt
Donc pour l'instant les étapes 1 et 2 sont fonctionnelles avec ce script :
Code:
1 2 3 4 5 6 7
| foldername = "C:\test\"
Set FSO = createObject("Scripting.FileSystemObject")
for each oFich in FSO.GetFolder(foldername).files
nom = fso.getbasename(oFich)
MsgBox "Bien le bonjour tout le monde !",0+48+4096,nom
next |
Pour que ça choisisse seulement le fichier test.txt de mon dossier test, je ne vois pas trop comment faire.
Avec le script ci-dessous, j'arrive à afficher tous les fichiers .txt présents dans le disque dur mais je n'arrive pas à lui dire de regarder uniquement dans le dossier C:\test\
Code:
1 2 3
| strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery("Select * From CIM_DataFile Where Extension = 'txt'") |
Voila, j'espère avoir été clair dans mes explications, si des informations sont manquantes ou que vous ne comprenez pas quelque chose, n'hésitez pas à me le dire.
Merci et bonne journée
Alexis