GetVolumeLabel ( DiskName 〔, FileSystemBuff〕 ) GetVolLabel ( DiskName 〔, FileSystemBuff〕 )
Dim volName ,fileSystem volName = GetVolumeLabel ( "E:" ,fileSystem )