Function ShowVolumeInfo(drvpath) Dim fso, d, s Set fso = CreateObject("Scripting.FileSystemObject") Set d = fso.GetDrive(fs.GetDriveName(fso.GetAbsolutePathName(drvpath))) s = "驱动器 " & d.DriveLetter & ": - " & d.VolumeNameShowVolumeInfo = sEnd Function