途中まで動作するのに・・・ (ID:125466)

名前

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

本文 >[ファイル名、ディレクトリ名、またはボリューム ラベルの構文が間違っています。]というエラーがでます。 FileOpen時に、このエラーが出る、という事ですよね。 それならば、FileOpenに渡すパス名を、いったん Dim FilePath As String のような文字列変数にうけてみて、どのようなパスを指定した時に、 そのエラーが発生しているのかを確認するところから始めないと。 たとえば……。 Dim FilePath As String Try ： ： 'ファイルへの書き込み処理 FilePath = "D:\2005月9月17日" & 商品(9, h).コード & ".text" FileOpen(1, FilePath, OpenMode.Append) PrintLine(1, "はい！元気です ") ： ： Catch ex As Exception 'エラーが発生した場合の処理 MessageBox.Show("エラー! " & FilePath) MessageBox.Show(ex.ToString()) Finally 'エラーの有無に関わらず、常に実行させたい処理 FileClose(1) End Try