将一个可变文件保存到一个文件夹中

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)