環境はWIN95にVB4を入れている、初心者です。

オプションボタンで選んだディレクトリィにフォルダを作り、そこに
データを書き込みたいのですが、エラーになります。
どこがおかしいのか教えてください。

Private Sub Command1_Click()

  Dim DRIVE As String

  If Option1.Value = True Then
    DRIVE = A
  ElseIf Option2.Value = True Then
    DRIVE = B
  ElseIf Option3.Value = True Then
    DRIVE = C
  End If

MkDir "DRIVE:\MyData" '選んだ DRIVE の下に MyDataのフォルダを作る'

Open "DRIVE:\MyData\001.txt" For Output As #5
  Print #5, "ABC"
  Print #5, "123"
  Print #5, "アイウ"
Close #5

End Sub

> 環境はWIN95にVB4を入れている、初心者です。

Windows 95……。

> オプションボタンで選んだディレクトリィにフォルダを作り、そこに
> データを書き込みたいのですが、エラーになります。
> どこがおかしいのか教えてください。

文字列中に変数名を埋め込んでも，変数の内容に展開されたりはしません。
> MkDir "DRIVE:\MyData" '選んだ DRIVE の下に MyDataのフォルダを作る'
MkDirではなく，MsgBoxで試してみればそのまま
DRIVE:\MyData
と表示されるはずです。
変数と文字列(変数と変数，文字列と文字列)を文字列として連結するには， & を使います。
DRIVE & ":\MyData"

> > 環境はWIN95にVB4を入れている、初心者です。
>
> Windows 95……。
>
> > オプションボタンで選んだディレクトリィにフォルダを作り、そこに
> > データを書き込みたいのですが、エラーになります。
> > どこがおかしいのか教えてください。
>
> 文字列中に変数名を埋め込んでも，変数の内容に展開されたりはしません。
> > MkDir "DRIVE:\MyData" '選んだ DRIVE の下に MyDataのフォルダを作る'
> MkDirではなく，MsgBoxで試してみればそのまま
> DRIVE:\MyData
> と表示されるはずです。
> 変数と文字列(変数と変数，文字列と文字列)を文字列として連結するには， & を使います。
> DRIVE & ":\MyData"
YuO様
レスありがとうございます。MsgBoxは難しそうなので避けていました。
　はじめは適当なドライブ(例えばB:)の下にフォルダと沢山のデータを作り・・・ここまでは出
来ました・・・最後に一括して移動したいドライブ(例えばC:時にはD:)に「FileCopy」したかっ
たのですが、別のドライブには「FileCopy」が出来ませんでした。
　そこで、最初にオプションボタンで移動先のドライブを選んでデータをそこに作ろうとした
次第です。
MsgBox、もう少し勉強してみます。ありがとうございました。