Displaying 1 result from an estimated 1 matches for "vbunicode".
Did you mean:
bunicode
2008 May 09
4
VB6 and wine_get_unix_file_name
...IpMem As Any) As Long
Public Declare Function wine_get_unix_file_name Lib "kernel32" (ByVal
lpszSrc As String) As Long
Public Function GetUnixPath(ByVal sPath As String) As String
Dim ptr As Long
Dim sBuffer As String * 255
ptr = wine_get_unix_file_name(StrConv(sPath, vbUnicode))
lstrcpyA sBuffer, ptr
HeapFree GetProcessHeap(), 0, ByVal ptr
GetUnixPath = sBuffer
End Function
Sub Main()
UnixPath = GetUnixPath()
MsgBox UnixPath
End usb
When running this code I got a blank msgbox can anyone help me please.
See you.
Escuder Nicolas
---...