ファイルを開くには？ (ID:118976)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 以下のようなプログラムでほかの人と相互性がとりたいのでアドレスの指定をドライブからではなくフォルダからにしたいのですが何度やってもパスが見つからないといわれます。解決法を知っている方がいましたら教えてください。 Private Sub Command1_Click() Dim jida(20) As String Dim sei(50) As String Dim i, n, s As Integer Dim tuki(20) As String Dim hiz(20) As String Dim toti(20) As String Dim koto(20) As String Dim hito(20) As String Open "Z:\hyou\年表\heisei.csv" For Input As #1 i = 0 Do While Not EOF(1) Input #1, jida(i), sei(i), tuki(i), hiz(i), toti(i), koto(i), hito(i) i = i + 1 Loop Close #1 End Sub