Help,
I'm trying to use the GetVolumeInformation call in KERNAL32.
But it only Partially succeeds. I think that I am not passing
parameters correctly. Here's my code
BEGINCODE
DECLARE Integer GetVolumeInformation in Win32api;
string, string, integer, integer @, integer @,;
integer @, string, integer
WITH THIS
IF TYPE('tcRootPathName') # "L"
.RootPathName = tcRootPathName
ENDIF
lcVolumeName = .VolumeName
liVolumeNameSize = Len(.VolumeName)
liVolSerialNumber = .VolSerialNumber
liMaxCompLen = .MaxCompLen
liFileSysFlags = .FileSysFlags
lcFileSysName = .FileSysName
liFileSysNameSize = Len(.FileSysName)
llSuccess = GetVolumeInformation(.RootPathName,lcVolumeName,liVolumeNameSize,;
@liVolSerialNumber,@liMaxCompLen,@liFileSysFlags,;
lcFileSysName,liFileSysNameSize)
ENDCODE
lcVolumeName and lcFileSysName Return ---> ""
liVolumeNameSize and liFileSysName Size Return ---> 0
llSuccess Returns ---> 0 indicating (BOOL FALSE) Failure
Terry Rooks
Software Systems Architect
Microsoft Certified Solution Developer.Net
If at first you don't succeed, then skydiving definitely isn't for you.