سوال در مورد كار با فايلها

سلام
پس لطفا اين يكي را هم برام توضيح بديد .
نرم افزارهايي كه اصلي بودن سي دي را چك مي كنند . اغلب يك فايل را چك مي كنند .
جه طوري ميشه اين كار را انجام داد ...
با تشكر

خوب اونا يه فايل غير قابل كپي رو ميذارن رو سي دي شون بعد هم چكش ميكنن همين

آقا احمد !
اين را كه خودم هم مي دونم . مي خوام بدونم چه طوري چك مي كنند ...
اگر ما اسمش را چك كنيم خوب ميشه ساخت ...
اگر ما حجمش را چك كنيم بازم ميشه ساخت ...
منظورم فايلي هست كه برنامه به عنوان سي دي اصلي چك كنه ...
چطوري چك مي كنه ؟

خوب ببين اون فايله كه خالي نيست يه چيزايي هم توش مينيويسن

شما ميشه يه توضيح كوچك بديد ... يا اينكه خودتون يه نمونه اش را برام درست كنيد ... ممنون .

ميشه بگيد چه طور ميشه فولدرهاي hidden و سيستمي رو به حالت نرمال تبديل كرد كه تو dirlistbox هم بشه ديدشون

اینجوری برای امتحان یه نیو فولدر توی ریشه c بعد هایدنش کن بعد کد زیر رو اجرا کن از هایدنی بیرون میاد

کد:

---

Private Const FILE_ATTRIBUTE_ARCHIVE = &H20
Private Const FILE_ATTRIBUTE_COMPRESSED = &H800
Private Const FILE_ATTRIBUTE_DIRECTORY = &H10
Private Const FILE_ATTRIBUTE_HIDDEN = &H2
Private Const FILE_ATTRIBUTE_NORMAL = &H80
Private Const FILE_ATTRIBUTE_READONLY = &H1
Private Const FILE_ATTRIBUTE_SYSTEM = &H4

Private Declare Function SetFileAttributes Lib "kernel32.dll" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long

Private Sub Command1_Click()
Dim fileattrs As Long
Dim retval As Long
fileattrs = FILE_ATTRIBUTE_HIDDEN  'Or FILE_ATTRIBUTES_READONLY
retval = SetFileAttributes("C:\New Folder", FILE_ATTRIBUTE_ARCHIVE)
End Sub

---

احمد آقا !
لطفا جواب سوال ما را هم بده

احمد من اين خط كد رو به اين صورت تغيير دادم

کد:

---

retval = SetFileAttributes("C:\New Folder\*.*", FILE_ATTRIBUTE_ARCHIVE)

---

فمميدي كه هدفم چيه هر چي فايل تو اون فولدر هست از حالت hidden و سيستمي و read only خارج بشن
ولي جواب نداد چه كار كنم؟

من كه چيزي سر در نياوردم