ファイルを開くには?

解決


uky  2005-01-18 19:36:07  No: 118976

以下のようなプログラムでほかの人と相互性がとりたいのでアドレスの指定をドライブからではなくフォルダからにしたいのですが何度やってもパスが見つからないといわれます。解決法を知っている方がいましたら教えてください。

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


INA  2005-01-18 20:04:55  No: 118977

>フォルダからにしたいのですが
どこのフォルダですか?

app.path を使うとか、\\PC名\・・  とかでしょうか?


じゃんぬねっと  URL  2005-01-18 20:11:21  No: 118978

それとも「Z:」がネットワークドライブで設定されているのに、叱られるとか?


uky  2005-01-18 20:34:01  No: 118979

要は絶対アドレス方式ではなく相対アドレス方式にしたいわけです。
Z:\ドライブでやるのでは他のPCと相互性が取れないので、
何とかしたいと思ってます。


INA  2005-01-18 20:42:14  No: 118980

>相対アドレス方式
何に対して相対なのかを明確にしてください。
app.path でないの?


uky  2005-01-18 20:47:35  No: 118981

実行する.exeファイルの存在するフォルダに対するものです。


特攻隊長まるるう  2005-01-18 20:51:54  No: 118982

>app.path を使うとか、\\PC名\・・  とかでしょうか?
最初の回答で答えは出てますが?回答に対し都合が悪い部分が
あるなら明確に指摘してください。


uky  2005-01-18 20:57:48  No: 118983

とりあえず解決しました。
どうやらこのPCの仕様でうまくいかなかったようでした。

これはWeb公開して不特定多数の人に配るつもりですので、
\\PC名\〜のようにその場しのぎの技を使うつもりはありません。
相対アドレス方式だということを伝え忘れたこちらのミスです。
どうも失礼しました。


じゃんぬねっと  URL  2005-01-18 20:58:38  No: 118984

> 絶対アドレス方式ではなく相対アドレス方式
正しくは、絶対パス (フルパス)、相対パス かな。

  App.Path & "..\..\Data\hyou\年表\heisei.csv"

とか。

# どこまでわかっていて、どこからわからないのかを書いて頂かないと (^-^;)


じゃんぬねっと  URL  2005-01-18 21:00:20  No: 118985

入れ違い投稿しちゃいました orz
申し訳ありません > ALL


ひろ  2005-01-18 21:08:36  No: 118986

日本語のフォルダ名を使わない場合もうまくいかないのでしょうか?

今回は「表」の2バイト目が &H5C ということで、特殊な条件下でWindowsが日本語ファイル英を正常に処理しない現象苦い等している可能性もあります。

また、ファイルサーバにアクセスしている場合は相手のファイルサーバが日本語のファイル名やフォルダ名に対応しているかも要確認ですね。


ひろ  2005-01-18 21:09:22  No: 118987

回答を書いている内に解決してしまった模様。。。
すいません


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加