|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Redes/Comunicações)
|
|
 |
Título da Dica: Identificando uma unidade de CD em Rede
|
 |
|
|
|
Postada em 14/8/2000 por Webmaster
webmaster@vbweb.com.br
A API de 32 bits é bem mais rica que a de 16 bits. Entretanto, a função GetDriveType mostra os Drives CDs em Rede, apenas como DRIVE_REMOTE (de rede). Isto é uma verdade, mas não completa. Combine a chamada a GetDriveType com uma chamada a GetVolumeInformation para determinar se o drive é, ao mesmo tempo, de rede e CD.
A chamada indica o sistema de arquivos: FAT, NTFS, HPFS ou CDFS (CD File System).
Declare Function GetVolumeInformation Lib "Kernel32" _
Alias "GetVolumeInformationA" (ByVal _
lPRootPathName as String ByVal lpVolumeNameBuffer _
As String ByVal nVolumeNameSize As Long ByVal _
lpVolumeSerialNumber As Long ByVal _
lpMaximumComponentLenght As Long ByVal _
lpFileSystemFlags As Long ByVal _
lpFileSystemNameSize As Long) As Long
'...
pstrRootPath = "E:\"
pstrVolName = Space$(256)
pstrSystemType = Space$(32)
plngSysTypeSize = Clng(Len(pstr(SystemType))
plnVolNameSize = Clng(Len(pstrVolName))
plngRtn = GetVolumeInformation (pstrRoothPath, _
pstrVolName, plngVolNameSize, _
plngVolSerialNum, plngMaxFileNameLen, _
plngSysFlags, pstrSystemType, plngSysTypeSize)
|
|
|
|
|
