bon commençons par le commencement :
1 - Msgbox n'est pas une variable mais une fonction qui fait apparaitre une message box contenant un texte que tu lui a envoyé en paramètre.
2 - On ne teste pas si Msgbox est vrai -> stocke le résultat de oFSO.DriveExists("G") dans une variable et teste la variable, son égalité à vrai.
3 -
Code:
“oFSO.DriveExists("G")”
pkoi des guillemets au début et à la fin ? 8O Il n'en faut pas.
4 - FSO.OpenTextFile("Monchemin") -> est ce vraiment ce que tu as écrit ou bien dans ton script tu as remplacé un Monchemin par un chemin ?
5 -
Code:
1
2
| If msgbox <> “oFSO.DriveExists("G")”
Then end |
-> c'est faux dans la structure à tous les niveau
Code:
1
2
3
| If oFSO.DriveExists("G") <> true Then
'les actions à faire
end if |
6 -
Code:
MsgBox "C:\Program Files\Fichiers communs >> " oFSO.FolderExists("C:\Program Files\Fichiers communs")
tu as voulu faire quoi ? Afficher une message box ou faire un test ? on va prendre le plus probable au vu de la ligne -> afficher le retour de la méthode FolderExists -> dans ce cas il faut la concaténer avec la chaine de caractère qui la précédete, et pour cela tu dois utiliser &
7 -
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| Set colFiles = objWMIService.ExecQuery _
("Select * from CIM_DataFile where Extension = 'mdb' ")
For Each objFile in colFiles
Wscript.Echo objFile.Name
Next
''Déplacement des fichiers access et de ceux présent dans les sous dossiers
strTarget = "C:\Nom_de_mon_repertoire\"
For Each objFile in colFiles
If objFile.Extension = "mdb" Then
objTextFile.WriteLine objFile.FileName
objFSO.MoveFile objFile.Name, strTarget
End If
Next |
tu n'as pas compris ce qui ce passais ici. Heu ... comment t'expliquer ??? As tu déjà fais de la programmation dans un autre langage que VBS ? As tu les bases ? Parce que là il faudrait que je te fasse un cours entier, et je n'ai pas le temps de faire ce genre de chose !!!
8 - Essayes les exemples indépendement, observe ce qu'ils font, et modifies les puis observe ce que provoquent ta modif. Ensuite commence par étape, ne fait pas tout d'un coup, mais fait une chose à la fois, teste là, et une fois que c'est bon, passe à la suite.
9 - Recherche tous les tutoriaux VBS que tu peux trouver sur le net, parce que tu en as besoin !!!
