Question
i besoin de créer un fichier texte nommé " listfile.txt " dans le dossier C: \ Documents and Settings \ All Users de l'application Les données de la netapp \ system donc je l'ai fait ce qui suit vbscript à atteind que
Const CommonAppData = &H23& ' the second & denotes a long integer '
Const OSCPATH = "\netapp\system"
Dim fso, MyFile
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(CommonAppData)
Set objFolderItem = objFolder.Self
'MsgBox objFolderItem.Name & ": " & objFolderItem.Path
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("objFolderItem.Path & OSCPATH\listfile.txt", True)
MyFile.WriteLine("This is a test.")
MyFile.Close
mais son chemin erreurs de lancement de mentionner ne se trouve pas
** Windows Script Host
Script: C: \ Documents and Settings \ puthuprf \ Desktop \ Test.vbs Ligne: 15 Char: 1 Erreur: Chemin d'accès introuvable Code: 800A004C
Source: Erreur d'exécution Microsoft VBScript
OK
--------------------------- **
La solution
Cette ligne dans votre script est incorrect:
Set MyFile = fso.CreateTextFile("objFolderItem.Path & OSCPATH\listfile.txt", True)
Pour insérer des variables et des propriétés d'objet dans une chaîne, vous devez les concaténer en utilisant l'opérateur &
, comme ceci:
Set MyFile = fso.CreateTextFile(objFolderItem.Path & OSCPATH & "\listfile.txt", True)
Notez qu'il est recommandé d'utiliser la méthode BuildPath
pour combiner plusieurs pièces du chemin, car il vous libère de l'addition des séparateurs de chemin nécessaires (\
) manuellement:
strFileName = fso.BuildPath(objFolderItem.Path, OSCPATH)
strFileName = fso.BuildPath(strFileName, "listfile.txt")
Set MyFile = fso.CreateTextFile(strFileName, True)