將一個可變文件保存到一個文件夾中

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)