ファイル
解決特定のフォルダにファイルの有無を確認し、
なければ終了、あればファイルを読み込みファイルごとにある処理を行います。
この場合DIR関数で、有無を確認後、どうすればいいでしょうか？
バージョンは VB5+SP3です。
ちなみに、ファイル有無確認こんな感じでいいでしょか？
dir("D:\*.*)
>この場合DIR関数で、有無を確認後、どうすればいいでしょうか？
あるファイルが何のファイルかによって読み込み方も
変わると思うのですが
ご自分でかかれているとおりファイルを読み込みファイルごとにある処理を行えば良いと思います。
>ファイル有無確認こんな感じでいいでしょか？
そうですね、そうゆう使い方[でも]可能です。
>そうですね、そうゆう使い方[でも]可能です。
うそでした、これではどうやってもコンパイルエラー
なので、やるなら
dir("D:\*.*")
ですね。
返事遅くなってすみません。
ファイルの確認後、ある場合全部をファイルを読み込みそれをループ
させたいですが、そのやりかたが よくわからなかったのです。
読み込み済みのファイルは削除し、次のファイルを読むという処理なんです。
ちゃ、ちゃんとレス読んでますか？(-_-;)
先に申し上げたとおり
あるファイルが何のファイルかによって読み込み方も
変わると思うのです
言い方を変えれば、質問者の言うファイルとは
テキストファイル・画像ファイル・音楽ファイル
エクセルファイル・ワードファイル・・・
の内どれでしょうか？
また回答者は何のファイルだと思ってこの質問に
回答するでしょうか？併せて書いてください。
と言うクイズはやりたくないのです。
まだも、返事おそくなりました。
ファイルですが、テキストファイルです。
不充分な質問ですみませんでした。
非表示のファイルリストボックスを利用すると簡単かもしれない。
単純にリストをループさせるだけなので…。
テキストファイルの読み込みは、
Open "ファイル名" For Input As #ファイル番号
Do Until EOF(ファイル番号)
Line Input #ファイル番号, 変数(文字型 or バリアント型)
Loop
Close #ファイル番号
'ファイルを消すという事なので…
Kill "ファイル名"
ファイル番号は、FreeFile関数を使って取得した方が安全です。
返答ありがとうございます。
テキストファイルの読み込みは、
Open "ファイル名" For Input As #ファイル番号
Do Until EOF(ファイル番号)
Line Input #ファイル番号, 変数(文字型 or バリアント型)
Loop
Close #ファイル番号
'ファイルを消すという事なので…
Kill "ファイル名"
この処理をループさせたいですが、 どうすればいいでしょか？
少しは自分で解決しようと努力していますか？
DIR関数を使うとしたら、
Private Sub Command1_Click()
Dim intFileNo As Integer
Dim strFile As String
Dim strGetStr As String
strFile = Dir("C:\TEST\*.txt")
intFileNo = FreeFile
Do Until strFile = ""
Open "C:\TEST\" & strFile For Input As #intFileNo
Do Until EOF(intFileNo)
Line Input #intFileNo, strGetStr
Text1.Text = Text1.Text & strGetStr & vbCrLf
Loop
Close #intFileNo
Kill "C:\TEST\" & strFile
strFile = Dir("C:\TEST\*.txt")
Loop
End Sub
以上。後は、自分で調べてみてください。
ありがとうございました。
| ツイート |  |