フォームをを作成して・・
下記フォームを作成し「フォルダ」の『選択』ボタンを押すとダイアログが表示され、選択したフォルダをテキストボックス「txtDirName」に表示、「ファイル」の『選択』ボタンを押すとダイアログが表示され、選択したファイルをテキストボックス「txtFileName」に表示する処理を作成します。（フォームの作成方法はリンク先をご確認下さい）
フォルダの取得方法
フォルダの『選択』ボタンをダブルクリックして下記コードを記述します。
'フォルダ選択のダイアログを表示する
With Application.FileDialog(msoFileDialogFolderPicker)
'OKを押した場合
If .Show = True Then
'選択したフォルダをテキストボックスに表示する
txtDirName.Text = .SelectedItems(1) & "\"
End If
End With
With Application.FileDialog(msoFileDialogFolderPicker)
'OKを押した場合
If .Show = True Then
'選択したフォルダをテキストボックスに表示する
txtDirName.Text = .SelectedItems(1) & "\"
End If
End With
これで、フォルダの『選択』ボタンをクリックすると下記ダイアログが表示されます。フォルダを選択して「OK」を押すとフォルダのテキストボックス「txtDirName」にフォルダ名を表示出来ます。
ファイルの取得方法
ファイルの『選択』ボタンをダブルクリックして下記コードを記述します。
'ファイル選択のダイアログを表示する
With Application.FileDialog(msoFileDialogFolderPicker)
'開くを押した場合
If .Show = True Then
'選択したファイルをテキストボックスに表示する
txtFileName.Text = .SelectedItems(1)
End If
End With
With Application.FileDialog(msoFileDialogFolderPicker)
'開くを押した場合
If .Show = True Then
'選択したファイルをテキストボックスに表示する
txtFileName.Text = .SelectedItems(1)
End If
End With
これで、ファイルの『選択』ボタンをクリックすると下記ダイアログが表示されます。ファイルを選択して「開く」を押すとファイルのテキストボックス「txtFileName」にファイル名をフルパス表示出来ます。
