VB6でのドラッグ＆ドロップについてです

VB６でのことなんですが、リネームツールを作ろうと思って色々やってるのですが、うまくいきません。
フォルダをドラッグ＆ドロップをして、
text1にフォルダの中のファイル名を表示して、text2にファイル名をコピーしてリネーム、というようなものを作りたいと考えています。

フォルダをドラッグ＆ドロップして表示されるのが、そのフォルダのフルパスになってしまいます。
ドラッグ＆ドロップしたフォルダの中のファイル名だけを表示する方法はどうすればいいのでしょうか？
よろしくお願いします。

No.1 ベストアンサー 回答者： gungnir7 回答日時： 2007/01/31 02:38

>フォルダをドラッグ＆ドロップして表示されるのが、

>そのフォルダのフルパスになってしまいます。

ドラッグ＆ドロップの機能としてはそれしか期待できないですし、
その情報があれば十分です。

一般的なコードはDirコマンドを使って次のようになります。

fname = Dir(pathname & "\*.*",vbNormal)
' ファイルが見つからなくなるまで繰り返す
Do While fname <> ""
fname = Dir()
Loop

ファイルシステムオブジェクトを使っても同じことができます。
マイクロソフトはファイルシステムオブジェクトを
推奨していたようですから、時間があったら研究してみましょう。

しばらくVBも触っていないのでミスがあればご容赦

この回答へのお礼

なるほど。なかなか思ったようにはできないですね。
ファイルシステムオブジェクトについて勉強してみようと思います。
ありがとうございました。

お礼日時：2007/02/01 03:46