0

プログラムを台無しにしてしまったと思います。困った箇所はこちら。

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つ（それほど重要ではありません）は、テキストファイルとして保存されなくなったことです。

4

1 に答える 1

0

「&」がなく、引用符(")が変数名を持つ各行の間違った場所にあります。コードで修正しました。これを試してください。

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)
于 2013-04-10T23:35:06.727 に答える