file - 将变量文件保存到文件夹中

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)