$COMPILE UNIT FUNCTION GetCurrentDrive$ PUBLIC REG 1?, &H1900 CALL INTERRUPT &H21 GetCurrentDrive$ = CHR$((REG(1?) MOD &H0100) + &H41) + ":" END FUNCTION
SourcePath$ = GetCurrentDrive$ + SourcePath$ DestinationPath$ = GetCurrentDrive$ + DestinationPath$
Tweet
LOCAL lpFileInformation AS BY_HANDLE_FILE_INFORMATION
LOCAL hFile AS DWORD
lFNum = FREEFILE
OPEN yourfile FOR INPUT ACCESS READ as lFNum
hFile = FILEATTR( # lFNum, 2) ' Get the file's OS file-handle
lFuncRet = GetFileInformationByHandle (BYVAL hFile, lpFileInformation)
lVolume = lpFileInformation.dwVolumeSerialNumber ' This determines the volume the file belongs to.
' Which means a logical primary or part of a secondary partition or on
' another physical disk. On its own, it cannot determine which partition or
' which physical disk.
CLOSE # lFNum
' From Win32.hlp, in the part describing the BY_HANDLE_FILE_INFORMATION structure:
' nFileIndexHigh = Specifies the high-order word of a unique identifier associated with the file.
' nFileIndexLow = Specifies the low-order word of a unique identifier associated with the file.
' This identifier and the volume serial number uniquely identify a file. This
' number may change when the system is restarted or when the file is opened.
' After a process opens a file, the identifier is constant until the file is
' closed. An application can use this identifier and the volume serial number
' to determine whether two handles refer to the same file.
'
' MSDN online has complementing info that should be considered as well, but since the online MSDN do not
' support W95 any more, only W2000 and up is said to be supported.
#COMPILE EXE
#DIM ALL
DECLARE FUNCTION GetCurrentDirectory LIB "KERNEL32.DLL" ALIAS "GetCurrentDirectoryA" (BYVAL nBufferLength AS LONG, lpBuffer AS ASCIIZ) AS LONG
FUNCTION PBMAIN () AS LONG
LOCAL iLoc AS LONG, szFolder AS ASCIIZ * 256
LOCAL sDrive AS STRING
IF GetCurrentDirectory(256, szFolder) THEN
sDrive = REMOVE$(szFolder, CHR$(0))
iLoc = INSTR(sDrive, ":")
sDrive = LEFT$(sDrive, iLoc)
ELSE
MSGBOX "Cannot find current directory", 48, "Error!"
EXIT FUNCTION
END IF
MSGBOX sDrive, 64, "Get current drive..."
END FUNCTION
) or something.
). Hardlinks are file based links and softlinks are folder based, if I remember right and simply enough.
so I don't have to hurry with this).
). I seem to got lost somewhere and started mixing stuff. Again.
.Sub MappedDrivePartititions()
Dim ComputerName As String
Dim wmiServices As Object
Dim objWMIService As Object
Dim wmiDiskDrives As Object
Dim wmiDiskDrive As Object
Dim strEscapedDeviceID As String
Dim wmiDiskPartitions As Object
Dim wmiDiskPartition As Object
Dim sOut As String
Dim wmiLogicalDisks As Object
Dim errResult As Variant
Dim wmiLogicalDisk As Object
On Error GoTo errSub
ComputerName = "."
Set wmiServices = GetObject( _
"winmgmts:{impersonationLevel=Impersonate}!//" _
& ComputerName)
' Get physical disk drive
Set wmiDiskDrives = wmiServices.ExecQuery( _
"SELECT Caption, DeviceID FROM Win32_DiskDrive")
For Each wmiDiskDrive In wmiDiskDrives
sOut = sOut & "Disk drive Caption: " _
& wmiDiskDrive.Caption _
& vbCrLf & "DeviceID: " _
& " (" & wmiDiskDrive.DeviceID & ")" & vbCrLf
'Backslash in disk drive deviceid
' must be escaped by "\"
strEscapedDeviceID = Replace( _
wmiDiskDrive.DeviceID, "\", "\\", _
1, -1, vbTextCompare)
'Use the disk drive device id to
' find associated partition
Set wmiDiskPartitions = wmiServices.ExecQuery("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" & strEscapedDeviceID & """} WHERE AssocClass = Win32_DiskDriveToDiskPartition")
For Each wmiDiskPartition In wmiDiskPartitions
'Use partition device id to find logical disk
Set wmiLogicalDisks = wmiServices.ExecQuery("ASSOCIATORS OF " & "{Win32_DiskPartition.DeviceID=""" & wmiDiskPartition.DeviceID & """} WHERE AssocClass = Win32_LogicalDiskToPartition")
For Each wmiLogicalDisk In wmiLogicalDisks
sOut = sOut & "Drive letter associated" _
& " with disk drive = " _
& wmiDiskDrive.Caption _
& wmiDiskDrive.DeviceID _
& vbNewLine & " Partition = " _
& wmiDiskPartition.DeviceID _
& vbNewLine & " is " _
& wmiLogicalDisk.DeviceID & vbCrLf & vbCrLf
Next
Next
Next
MsgBox sOut
Exit Sub
errSub:
MsgBox Err.Description
End Sub
#Compile Exe
#Dim All
#Include "win32api.inc"
Function PBMain () As Long
Local szDevName, szResult As Asciiz * %MAX_PATH
Local nResult As Dword
szDevName = "C:"
' requires Windows 2000 or later
nResult = QueryDosDevice(szDevName, szResult, SizeOf(szResult))
StdOut Format$(nResult) + " " + szResult
WaitKey$
End Function
Comment