vbscript erreur 800A004C

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
--------------------------- **

Answer 1

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)