اريد اخفاء ملفات البرنامج بعد التحزيم

؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

اول نقطة هي انك لا يجب ان تتوقع الاجابة من الثاني التي تقوم بفتح هذا الموضوع و الصبر بعده الفرج :)

Project->Reference->Microsoft Scripting runtime

Private Sub Form_Load()
Dim FS As FileSystemObject
Set FS = New FileSystemObject
Dim Fol As Folder
Dim Fil As File
Set Fol = FS.GetFolder(App.Path)
For Each Fil In Fol.Files
    SetAttr Fil.Path, vbHidden
Next Fil
End Sub

معليش بس على عجله بالأجابه

راح اجربه الآن

وهل يخفي جميع الملفات لأني لاارى اي تحديد لنوعية ملف