Discussion :

[alexis45140]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[alexis45140]

Salut à tous,

J'ai réussi ce que je voulais faire donc je poste mon code ci-dessous si ça intéresse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
'##############################################################################'
'#####     Créer une MsgBox qui affiche le texte d'un fichier externe     #####'
'##############################################################################'
Const ForReading = 1
folderpath = "C:\test\"
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
'/////Graphique MsgBox\\\\\'
 
'#Boutons dans la MsgBox :
'0 = Affiche le bouton "Ok" seulement
'1 = Affiche le bouton "ok" et "annuler"
'2 = Affiche le bouton "abandonner", "rééssayer" et "ignorer"
'3 = Affiche le bouton "oui", "non" et "annuler"
'4 = Affiche le bouton "oui" et "non"
'5 = Affiche le bouton "rééssayer" et "annuler"
bouton = 0
 
'#Icône dans la MsgBox :
'0  = Aucune icône
'16 = Icône d'erreur (une croix blanche entourée d'un rond rouge)
'32 = Icône de question (bulle avec point d'interrogation)
'48 = Icône d'avertissement (triangle jaune avec point d'exclamation)
'64 = Icône d'information (bulle avec la lettre "I")
icone = 48
 
'#Style dans la MsgBox :
'0 = Le bouton par défaut est le premier bouton
'256 = Le bouton par défaut est le deuxième bouton
'512 = Le bouton par défaut est le troisième bouton
'768 = Le bouton par défaut est le quatrième bouton
'4096 = La MsgBox reste au premier plan
style = 4096
 
'#Création de la MsgBox avec le contenu, l'icône et le titre
for each oFich in objFSO.GetFolder(folderpath).files
	Set f = objFSO.GetFile(oFich)
		If Ucase(objFSO.GetExtensionName(oFich)) = "TXT" then 
		nom = objFSO.getbasename(oFich)
		Set objFile = objFSO.OpenTextFile(folderpath & nom&".txt" , ForReading)
			contenu = objFile.ReadAll
			objFile.Close
		MsgBox contenu,0+48+4096,nom
		End If
	next

Bonne journée.

Alexis

[l_autodidacte]

On peut le faire sans aucune boucle et sans structure conditionnelle étant donné que le chemin complet du fichier est connu :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Option Explicit 
 
Const ForReading = 1, Fich = "C:\Test\Test.txt"
Dim fso, Ret, F 
 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set F = fso.OpenTextFile(Fich, ForReading, False) 
Ret = F.ReadAll
F.Close : Set F = Nothing : Set fso = Nothing
MsgBox Ret, 48+4096, Fich

[alexis45140]

Bonjour,

Merci de votre réponse. Je ne peut pas tester le code pour le moment mais je le ferai dès que ça me sera possible.

Je passe le sujet en résolu.