|
>MsgBox Dir(フルパスファイル名, vbDirectory)
上記表現に誤りがありました。
申し訳ございません。
Sub フルパスから()
Dim FNamFulPas As String
FNamFulPas = Application.GetOpenFilename("Excelファイル (*.xls), *.xls")
If FNamFulPas <> "False" Then
'97以降
MsgBox Dir(Application.Substitute(FNamFulPas, "\" & Dir(FNamFulPas), ""), vbDirectory)
'2000以降
'MsgBox Dir(Replace(FNamFulPas, "\" & Dir(FNamFulPas), ""), vbDirectory)
End If
End Sub
Sub パッチから()
Dim FPath As String
'FPath = ThisWorkbook.Path
FPath = "C:\Windows\デスクトップ"
MsgBox Dir(FPath, vbDirectory)
End Sub
|
|