Displaying 1 result from an estimated 1 matches for "lpfilepart".
Did you mean:
filepart
2005 Aug 30
0
No subject
...s 'PROG~FBU' does not match 'Program Files'
<CODE>
Option Explicit
Private Declare Function GetFullPathName Lib "kernel32" _
Alias "GetFullPathNameA" (ByVal lpFileName As String, _
ByVal nBufferLength As Long, ByVal lpBuffer As String, _
ByVal lpFilePart As String) As Long
Sub test()
Dim buff As String
Dim ret As Long
Dim pth As String
pth = "/home/justin/.cxoffice/dotwine/fake_windows/pretest/GEM01494/GEM01494.rtf"
buff = Space$(1024)
ret = GetFullPathName(pth, 1024, buff, "")
buff = Left$(buff, ret)
Debug.Print ">&...