يه سوال دارم از تابع SetVolumeLabel

من با اين تابع کار ميکنم ولي نام درايو رو عوض نميکنه!
اينجوري : Dim vlmlabel as string
vlmlabel=InputBox("Enter a name for drive label!","Volume name")x
SetvolumeLabel (Drive1.Drive),vlmlabel

به جای drive1.drive بنویس: Left(Drive1.Drive, 1) & ":\"
چون باید نام درایو رو به این صورت وارد کنی: C:\

خيلي ممنون.
يه سوال ديگه.. اگه بخوام يک دفعه ليبل همه درايو ها رو پاک کنم و دوباره به همون ليبل هاي قبليش برگردونم چه کدي بايد نوشت.