Visual BasicでFileSystemObjectを使用し、
指定したディレクトリ内の全ファイル(サブディレクトリを含む)を読み込む。
全階層を再帰的に検索することができます。
■コマンドボタンに以下のようにコードを記述
Private Sub ファイル検索_Click()
Dim strPath As String
Dim fsObj As Object
If Not IsNull("検索文字列") Then
Set fsObj = CreateObject("Scripting.FileSystemObject")
strPath = "調べたいディレクトリまでのフルパス"
strKey = "検索文字列"
'ディレクトリ読み込み関数を呼び出し
Call SearchSubDirectory(fsObj.GetFolder(strPath), strKey)
'オブジェクトを破棄
Set fsObj = Nothing
End If
End Sub
公式リファレンス、検索でヒットしたブログを参考にテーマを作成。
デザインは至ってシンプル。
ウィジェットはどうしても使いたかったので、ウィジェット領域を7箇所設けた。
System.Diagnostics.Process.Start("ファイルパス");
自動的に関連付けされているアプリケーションでファイルが開きます。
例)エクスプローラーでフォルダーを開く
System.Diagnostics.Process.Start(@"C:\My Documents");