エクセル ＶＢＡ パスの記述方法を教えてください。

質問

Sub フォルダ作成()
Dim UserName As String
UserName = Environ("USERNAME")
MkDir "C:\Documents and Settings\" & UserName & "\My Documents\販売管理\0000年00月決算"
MkDir "C:\Documents and Settings\" & UserName & "\My Documents\販売管理\0000年00月決算\売掛金元帳"
MkDir "C:\Documents and Settings\" & UserName & "\My Documents\販売管理\0000年00月決算\買掛金元帳"
MkDir "C:\Documents and Settings\" & UserName & "\My Documents\販売管理\0000年00月決算\管理表"
End Sub

上記のようなマクロを記述してありますが、
Ｃ：ドライブ以外（Ｄ：ドライブやＺ：ドライブ）で使用する場合が発生しましたので、
どのドライブでも使用出切る記述方法があれば御教示お願い致します。

回答No.2

Wendy02

こんばんは。

半年ぶりになりますね。私は、まだ書いています。

>どのドライブでも使用出切る記述方法があれば御教示お願い致します。

としたら、ユーザー選択のダイアログを取り付ける方が早いのではないでしょうか。

'-------------------------------------------
　Sub Test1()
　　Dim Sel_Folder As Object
　　Dim Sel_Path As String
　　Const ssfWINDOWS As Long = 36
　　Set Sel_Folder = CreateObject("Shell.Application"). _
　　　　BrowseForFolder(0, "フォルダを選択してください", 0, ssfWINDOWS) 'フォルダ名の取得

　　If Not Sel_Folder Is Nothing Then
　　　　Sel_Path = Sel_Folder.Items.Item.Path
　　　　MsgBox Sel_Path

　　End If
　　Set Sel_Folder = Nothing
　End Sub