Сохраните файл переменной в папку

Question

Думаю, мне удалось испортить мою программу. Вот проблемные места.

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) 

Эта программа была написана с флэш-накопителя. В любом случае я и имея пару небольших проблем, главный из них заключается в том, что он не будет сохранен в папке «памяти». другой (не так важен) - это то, что больше не сохраняется в текстовом файле.

Answer 1

У вас не хватает «&» и ваша цитата (") находится в неправильном месте, в каждой строке, которая имеет имя переменной. Я исправил, что в вашем коде. Попробуйте.

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)