سیستمی کردن فایل

[saeid12]

دیدید تو پوشه system32بعزی از فایلا رو پاک میکونی دوباره ساخته میشن منم یه فایل تو برنامم هست که نباید به هیچ عنوان پاک بشه .... خلاصه این که چیکار کنم فایلم سیستمی بشه؟

[Babak.Hassanpour]

ایجاد دوباره یه فایل پس از پاک کردن لزوما ربطی به سیستمی بودن آن ندارد.سیستمی بودن یک فایل خاصیتی از فایل است مثل فقط خواندنی بودن یا آرشیوی بودن.ولی ایجاد دوباره فایل مستلزم وجود یه پروسه پشتیبان در حافظه بوده که وجود فایل یا صحت آن را بررسی نموده و در صورت نقض شرایط مورد نظر آن فایل را از روی نسخه پشتیبان بازیابی کند.

[Babak.Hassanpour]

Dim fso
Dim strFile As String
Set fso = CreateObject("Scripting.FileSystemObject")

If fso.FileExists("c:\windows\Calc.exe") Then
MsgBox "It does exist", vbInformation, "Does Exist"
Else
MsgBox "It does Not exist!", vbExclamation, "Doesn't Exist"
End If

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





FileCopy "C:\Windows\Win.ini", "C:\Windows\Desktop\Win.ini"

اینم واسه کپی فایل.البته API مربوطه رو باید اضافه کنی