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

你错过了“＆amp;”并且你的引号（“）在每行都有错误的地方，它有变量名。我在你的代码中更正了。试试这个。

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)

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

1 个答案: