SetVolumeLabel ( DiskName 〔, LabelName〕 ) SetVolLabel ( DiskName 〔, LabelName〕 )
Dim drvName ,volName drvName = "E:" volName = GetVolumeLabel ( drvName ) If volName = Empty Then SetVolumeLabel ( drvName ,"Script共有ドライブ" ) End