[ExcelVBA] CurDir関数

>Blog Top Page >[ExcelVBA] Top Page >[ExcelVBA] 関数一覧

■構文
CurDir[(drive)]

■説明
カレントフォルダのパスを返します。
引数は、省略した場合カレントドライブのカレントフォルダを返します。
第一引数：(省略可能)ドライブを指定します。

■サンプルコード

view plainprint?

1. Option Explicit  
2.   
3. Sub SampleCode()  
4.       
5.     Debug.Print CurDir 'C:\Documents and Settings\UserName\My Documents  
6.   
7.     ChDir "C:\Documents and Settings" 'カレントディレクトリを変更  
8.       
9.     Debug.Print CurDir 'C:\Documents and Settings  
10. End Sub  

Option Explicit

Sub SampleCode()
    
    Debug.Print CurDir 'C:\Documents and Settings\UserName\My Documents

    ChDir "C:\Documents and Settings" 'カレントディレクトリを変更
    
    Debug.Print CurDir 'C:\Documents and Settings
End Sub

■関連
ChrDir関数

>Blog Top Page >[ExcelVBA] Top Page >[ExcelVBA] 関数一覧