' Return the volume label of a disk' Pass a null string for the current diskFunction VolumeLabel(drive As String) As String Dim temp As String On Error Resume Next temp = Dir$(drive, vbVolume) ' remove the period after the eigth character VolumeLabel = Left$(temp, 8) + Mid$(temp, 9)End Function
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
