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

質問

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

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

回答No.1

gungnir7 · ベストアンサー

>フォルダをドラッグ＆ドロップして表示されるのが、
>そのフォルダのフルパスになってしまいます。

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

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

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

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

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

お礼

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