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
System.Diagnostics.Process.Start("ファイルパス");
自動的に関連付けされているアプリケーションでファイルが開きます。
例)エクスプローラーでフォルダーを開く
System.Diagnostics.Process.Start(@"C:\My Documents");
参照設定なしでACCESSからExcelファイルを作成する方法です。
罫線等の定数は使用できないため、実際の数値を与えています。
Dim xlApp As Object Dim xlBook As Object Dim xlSheet As Object Dim FileName As String
FileName = Environ("USERPROFILE") & "\デスクトップ\test.xls" Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open(FileName) Set xlSheet = xlBook.WorkSheets(1)
基本となる列挙型
enum Days { Sun, Mon, Tue, Wed, Thu, Fri, Sat };
取り出すときはintegerにキャストする
(int)Days.Sun // 0 (int)Days.Wed // 3