'================================================================
'= パスからファイル名部分を取り除く
'=   (PathRemoveFileSpec.bas/P)
'================================================================

' パスからファイル名部分を取り除く
Declare Sub Api_PathRemoveFileSpec Lib "shlwapi" Alias "PathRemoveFileSpecA" (ByVal pPath$)

Var Path As String

Path = "C:\_FB_API_E\PathRemoveFileSpec.bas"
Print Path

Api_PathRemoveFileSpec Path
Print Left$(Path, InStr(Path, Chr$(0)) - 1)

Stop
End