ディレクトリ配下のファイル名を取得するには

質問

質問があります。
あるディレクトリの配下のファイル名を取得するには
どのようにしたらよいのでしょうか？
またその場合、どういった形式で取得できるのでしょうか？

もうひとつファイルをオープンして一行しかない
ファイルの場合だけ編集を行い、
上書きするという処理をご存知のかた
いましたら、教えてください。

回答No.2

osaosa42 · ベストアンサー

1つ目の質問の回答ですが、「Dir関数」を使えばできます。
やり方は、ヘルプに載っているので見てください。

2つ目の質問の回答ですが、
--------------------------------
Dim strFile As String
Dim strLine As String

'☆☆☆☆1行取り出し☆☆☆☆
'ファイルを開く
Open strFile For Input As #1
'ファイルから１行読み取る
Line Input #1, strLine
'ファイルを閉じる
Close #1

'☆☆☆☆書き込み☆☆☆☆
strLine="書き込むよ！！"
Open strFile For Output As #1
Print #1, strLine
Close #1

--------------------------------
ただし、エラー処理は、省略してます。
こんなんでどうでしょう？

お礼

ありがとうございました。
Dir関数でできました。
引数を省略すると次のファイル名が
取得できるようです。
あとはOutput,Inputを
使って解決することができました。

回答No.3

arata

最初のファイル名取得ですが、４つほどあります。

１．Ｄｉｒ関数を使用する
osaosa42さんが紹介されてますね。最も一般的な方法です。

２．ファイルシステムオブジェクトを使用する
ＶＢ６からだと思います。
Ｄirよりも高機能・・・だったと思います。

３．WindowsAPIを使用する
FindFirstFile,FindNextFile,FindCloseを使用します。Dir関数では取れない情報をとったり、再帰的にフォルダの内容を取得したりしたい場合に使用したりします。Dirより高速。

４．ファイルリストボックスを利用する
ファイルリストボックスをフォームに貼りつけて、VisibleをFalseにしておいて、利用します。

こんなところでしょうか。
用途によって使い分けます。使い方が載っているページを紹介しておきます。

http://www.galliver.co.jp/writing/vbm_tokushu/api9030/
http://www.vbvbvb.com/jp/gtips/0051/gFindFirstFileFindNextFile.html

回答No.1

honiyon

こんにちは、honiyonです。
　今手元にVBがないので分かりませんが、ヘルプにのっているはずです。（ファイル名の取得）
　因みにDelphiでは FindFirst, FindNextを使います。
　検索エンジンで、「VB ファイル名 取得」で検索したら色々と参考文献が見つかると思います。（試してません^^;)

　一行しかないファイルの検索方法ですが、まずファイルを開くまではＯＫですよね？　その後「一行だけのファイルである」と判断の仕方を提示します。
　一行だけのファイル（テキスト形式）であるのは、

　　　１．データ(文字)が書かれているけど改行コードが含まれていない。
　　　２．改行コード以降にデータ（文字）がかかれていない。

　のどちらかだと思います。
　改行コードは 0x0D 0x0Aです。 (0D,0A,ひょっとしたら逆かも^^;)

　曖昧なアドバイスですが、参考になれば幸いです（．．