inabayuta
11/29/2019 - 5:44 AM

フォルダダイアログで指定されたパスを返す

selectDir.vba
content_copyfile_download
Function selectDir() As String
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = True Then
            selectDir = .SelectedItems(1)
        End If
    End With
End Function