|
▼aaa さん:
こんばんは。
>自パス配下のフォルダ名をダイアログを使用し表示させてセルにフォルダ名のみを表示させたいのですが、APIやShellを使ってもうまくいきません。
うまくいかないコードを見せてください。
私は、よくShellを使いますけど・・(よくでもないか・・)
'====================================
Sub main()
MsgBox get_folder_path("SelectFolder", ThisWorkbook.Path & "\")
End Sub
'====================================
Function get_folder_path(Optional mes As String = "", Optional 初期値 = 17) As Variant
Dim fld As Object
Set fld = CreateObject("Shell.Application").BrowseForFolder(0, mes, 0, 初期値)
On Error Resume Next
If Not fld Is Nothing Then
get_folder_path = fld.items.Item.Path
If Err.Number <> 0 Then
get_folder_path = False
End If
Else
get_folder_path = False
End If
End Function
これでもうまくいきませんか?
|
|