Enregistrer un fichier de variables dans un dossier

Question

Je pense que j'ai réussi à gâcher mon programme. Voici les emplacements troublés.

name=inputbox("Type the name here.",,"") 
Dim file : Set file = CreateObject("Scripting.FileSystemObject") 
If file.FileExists("G:\Rita\memory"\name) Then 
msgbox("I believe we have met before.") 
End If 

alors il y a un tas de dialogue et puis ces lignes ici.

Dim aData : aData = Array(name, age, color) 
If file.FileExists(name) Then aData = Split(file.OpenTextFile("G:\Rita\memory"\name).ReadAll()) 
file.CreateTextFile("G:\Rita\memory"\name).Write Join(aData) 

Ce programme a été écrit à partir du lecteur flash. Quoi qu'il en soit, et j'ai quelques petits problèmes, le principal est qu'il ne va pas enregistrer dans le dossier "mémoire" premade. un autre (pas aussi important) est qu'il ne sauvegarde plus en tant que fichier texte.

Answer 1

Il vous manque le « & » et votre citation (") est au mauvais endroit sur chaque ligne qui a le nom de la variable. Je corrigeais que dans votre code. Essayez ceci.

name=inputbox("Type the name here.",,"") 
Dim file : Set file = CreateObject("Scripting.FileSystemObject") 
If file.FileExists("G:\Rita\memory\" & name) Then 
msgbox("I believe we have met before.") 
End If 

Dim aData : aData = Array(name, age, color) 
If file.FileExists(name) Then aData = Split(file.OpenTextFile("G:\Rita\memory\" & name).ReadAll()) 
file.CreateTextFile("G:\Rita\memory\" & name).Write Join(aData)