MMBuilder28Fire Virtual DrivePage 1Y~fList?1 Courier NewListItems$,ItemsNum$,#,NumItemsfi=1NumItemsc%ArrayItem$ = GetArrayItem(Items$,#,i)Oitem ArrayItem$gid .j~TextBTN?Add Tahomac,Item$ = '"' + Drive$ + '" "' + Folder$ + '"'ListItem$List C:\List.lstdI Rectangle? TahomadDrive$EditBoxN Vir-DriveGEditBox?Z: TahomaduBText? Drive Name :"TahomadZvText1? Folder Name :"TahomaSelect Folder :cOpen$ = CBK_OpenDird Open$ <> ''EditBox1Open$edY| Rectangle1? TahomadFolder$EditBoxN\yEditBox1? C:\Windows TahomadCreate & Delete?Any comments here Tahomac=string$ = 'HIDE /C subst "' + value1$ + '" "' + value2$ + '"'Cmd.exestring$c.string$ = 'HIDE /C subst "' + value1$ + '" /d'cmd.exestring$d -}TextBTN1? Delete Drive Tahoma ListItems$,ItemsNum$,#,NumItemsfi=1NumItemsc%ArrayItem$ = GetArrayItem(Items$,#,i)giccop$=StrCopy(ArrayItem$,1,4)c$string$ = 'HIDE /C subst /D ' + cop$Cmd.exestring$dCBK_ReturnVal <> 0Errorh# Delete_ItemeList C:\List.lstd +TextBTN2? Apply iTEM TahomaListItems$,ItemsNum$,#,NumItemsfi=1NumItemsc%ArrayItem$ = GetArrayItem(Items$,#,i)gic'string$ = 'HIDE /C subst ' + ArrayItem$Cmd.exestring$**Message("","CBK_ReturnVal")List C:\List.lstd TextBTN3?Delete Tahoma# Delete_ItemList C:\List.lstd TextBTN4? Apply All Tahoma#Num_listfj=1lnumListj******ListItems$,ItemsNum$,#,NumItemsfi=1NumItemsc%ArrayItem$ = GetArrayItem(Items$,#,i)gi***c'string$ = 'HIDE /C subst ' + ArrayItem$Cmd.exestring$**Message("ArrayItem$","")gjList C:\List.lstd Delete_ItemDELETE?Any comments here ArialListItems$,ItemsNum$,#,NumItemsf j=NumItems1c&numitem$ = GetArrayItem(ItemsNum$,#,j)cnumitem = VAL(numitem$)ListnumitemnumitemgjdNum_list?Any comments here Tahoma?Listclnum = CBK_NumInListd j-TextBTN5? Save List TahomaList C:\List.lstdText2?Apply Tahomad& Vir-Drive?Any comments here TahomacLen=LEN(Drive$)dLen > 2cGet$=StrGet(Drive$,1)cGet$ = Get$ + ':'OEditBoxGet$edText3?memail: dr.mfire@gmail.com my site: http://vb-delphi-cpp.blogfa.com http://fire-mmb.blogfa.com TahomadList C:\List.lstMaster Page 000YMaster Layer 000YMyApp1.0.0.0