Function ShowFreeSpace(drvPath)Dim fso, d, s Set fso = CreateObject("Scripting.FileSystemObject") Set d = fso.GetDrive(fso.GetDriveName(drvPath)) s = "驅(qū)動器 " UCase(drvPath) " - " s = s d.VolumeName "BR>" s = s "可用空間: " FormatNumber(d.FreeSpace/1024, 0) s = s "KB"ShowFreeSpace = sEnd Function