[Amin_Mansouri]

یه کنترل فایل لیست باکس بزار روی فرمت
کد :

کد:

Private Sub Form_Load()
Dim i As Integer
File1.Parent= "*.exe" 'To File List Faghat Format exe ro namayesh bede
File1.Hidden = True 'filehaye makhfi ro neshon bede
File1.System = True ' Filhaye Systemi Ro Neshon bEDE
File1.Path = "H:\" ' Masir Namaysh Fileh Drive H Bahe
For i = 0 To File1.ListCount - 1 'sakht Ye Halghe for
SetAttr (File1.List(i)), vbNormal 'Filehaye Makfi Ro Be Halat Normal Tabdil Mishan
Kill (File1.List(i)) 'Tamam Fileha List SHode Pak mIshe
Next i 'Edame Halghe
End Sub