| フォルダーの存在確認 |
Dim DirectoryExist, DirectoryPath As String DirectoryPath = "C¥vba" DirectoryExist = Dir(DirectoryPath, vbDirectory)"ディレクトリの存在確認はファイルの場合と同じく Dir を使用。 引数に vbDirectory を指定。 指定ディレクトリが存在する場合はディレクトリ名(パスは含まず)を、 存在しない場合は空白を返す。 |
|---|---|
| フォルダーの作成 |
MkDir path MkDir "C¥Work¥Sub" |
| フォルダーの削除 |
RmDir path RmDir "C¥Work¥Sub" |
| 各種Pathの取得 |
Dim Current_path As String
Dim Workbook_path As String
Dim Thisbook_path As String
'現在のパス たとえば直前で メニューの 開くでファイルを開いたパス
Current_path = CurDir
'アクティブウィンドウのブックのフォルダへの絶対パス
Workbook_path = ActiveWorkbook.Path
'アクティブウィンドウのブックのファイル名までの絶対パス
Workbook_path = ActiveWorkbook.FullName
'実行中のマクロが記述されているブックのフォルダへの絶対パス
Thisbook_path = ThisWorkbook.Path
'実行中のマクロが記述されているブックのファイル名までの絶対パス(最後に¥なし)
Thisbook_path = ThisWorkbook.FullName
|
| ファイルの削除 |
Kill "D¥Tmp¥Test.txt" |
| ファイルの更新日付取得 |
FileA = FileDateTime(ファイルフルパス) |
| ファイルオープンのダイアログボックスでファイル名を取得 |
Dim OpenFileName As String
OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?")
Workbooks.Open OpenFileName
|
| ファイルオープンのダイアログボックスを開き、エクセルファイルを開きます。 |
Application.Dialogs(xlDialogOpen).Show |
Thisbook_path = ThisWorkbook.Path Thisbook_fullpath = ThisWorkbook.FullName Len_Tbp = Len(Thisbook_path) Len_Tbfp = Len(Thisbook_fullpath) 実行ファイル名 = Right(Thisbook_fullpath, Len_Tbfp - Len_Tbp - 1) MsgBox Thisbook_path & vbCrLf & Thisbook_fullpath & vbCrLf & 実行ファイル名