タイトル : 選んだディレクトリィにフォルダが作れない 投稿日 : 2017/05/12(Fri) 10:52 投稿者 : 影ちゃん
環境は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 |