ویژوال بیسیک : برچسب (لیبل) درایو با ویژوال بیسیک 6

در این سری از آموزش ویژوال بیسیک 6 با آموزش تغییر برچسب یا label درایو با استفاده از انتخاب درایو مورد نظر از طریق combobox و نام گذاری جدید برچسب با textbox آشنا میشویم :

ابتدا یک کمبوباکس و تکست باکس بر روی فرم قرار داده و از قسمت properties کمبو باکس گزینه list را پر کرده (حروف درایو ها را قرار دهید مثل A , B , .... ) و سپس یک دکمه کامند (Command) روی فرم قرار داده و کدهای زیر را در آن نوشته

rootname = Combo1 + ":\"
newlabel = Text1.Text
Call SetVolumeLabel(rootname, newlabel)

نکته : توجه داشته باشید تابع زیر را در قسمت general فراخوانی کنید!

Private Declare Function SetVolumeLabel Lib "kernel32" Alias "SetVolumeLabelA"
 (ByVal lpRootPathName As String, ByVal lpVolume As String) As Long