PDA

نسخه کامل مشاهده نسخه کامل : يه سوال دارم از تابع SetVolumeLabel


Arash_XL7710i_207
20-12-2006, 07:03
من با اين تابع کار ميکنم ولي نام درايو رو عوض نميکنه!
اينجوري : Dim vlmlabel as string
vlmlabel=InputBox("Enter a name for drive label!","Volume name")x
SetvolumeLabel (Drive1.Drive),vlmlabel
shamsoft
20-12-2006, 09:01
به جای drive1.drive بنویس: Left(Drive1.Drive, 1) & ":\"
چون باید نام درایو رو به این صورت وارد کنی: C:\
Arash_XL7710i_207
21-12-2006, 08:16
خيلي ممنون.
يه سوال ديگه.. اگه بخوام يک دفعه ليبل همه درايو ها رو پاک کنم و دوباره به همون ليبل هاي قبليش برگردونم چه کدي بايد نوشت.