|
こうちゃん さん、INA さん
どうもお騒がせしました。
下記の様にコードを追加したら、いつの間にか使えるようになってました。
--------------------------------------------------------------------------
Dim OpenFileDialog As FileDialog
Dim strFilePath As String
Set OpenFileDialog = Application.FileDialog(msoFileDialogOpen)
With OpenFileDialog
.AllowMultiSelect = False
.ButtonName = "指定する"
.Filters.Clear
.Filters.Add "Tar ファイル", "*.gz; *.tar"
.Title = "情報アーカイブの指定"
If .Show = -1 Then
strFilePath = .SelectedItems.Item(1)
txtFilePath = strFilePath
'ユーザーが [キャンセル] をクリックした場合
Else
End If
End With
--------------------------------------------------------------------------
「.show」の返り値を受けていなかったことが原因だったんでしょうか?
とにかく解決致しましたので、
このまま続けようと思います。
ありがとうございました。
|
|