あのファイルはどこだっけ？
|
ファイルを探すときにどのディレクトリだったかなー？ってこと、よくありませんか？ ドライブさえわかれば、どのディレクトリ下にあるのかを調べてくれる ＡＰＩ があります。 SearchTreeForFile() モジュールの宣言部に Private Declare Function SearchTreeForFile Lib "imagehlp.dll" _ (ByVal RootPath As String, ByVal FileName As String, ByVal Output As String) As Long を書き、実際にファイルを探す個所で Dim ret&, strOut As String strOut = String$(256, Chr$(0)) ret = SearchTreeForFile("C:", "花見.scr", strOut) を書きます。 成功すれば（ファイルが見つかれば）ゼロ以外の値を返します。 当然この場での strOut は余分な Chr$(0) が含まれていますので実際にこの値を使用する場合は strOut = Left$(strOut, Instr(strOut, Chr$(0)) - 1) でChr$(0) をカットして下さい。 MsgBox strOut |
動作確認
Window95 + Visual Basic 5このサンプルを使用しての感想や、質問は 掲示板や、 らくがき帳に書きとめて頂けるとうれしいです。