بوسیله ماکرو یا یک ماژول در اکسس چطور میتوان یک فایل مشخص را در کامپیوتر پاک کرد ؟

[bijanborjian]

بوسیله یک ماژول در اکسس چطور میتوان یک فایل مشخص را در کامپیوتر پاک کرد ؟ ابتدا چک کند فایل موجود است اگر موجود بود آنرا تغییر نام بدهد .

[karmand]

برنامه ای دارم که فایلهای جاری اکسس را نمایش میدهد که با کمی دستکاری میتوان ان را طوری که شما می خواهی تغییر داد اما نمیدانم چگونه ان را بفرستم؟
Private Sub Command0_Click()

Set fs = Application.FileSearch
With fs
.lookin = "d:\access"
.filename = "*.mdb"
If .Execute > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For I = 1 To .FoundFiles.Count
MsgBox .FoundFiles(I)
Next I
Else
MsgBox "There were no files found."
End If
End With

End Sub

[moustafa]

کد اقای کارمند

Private Sub Command0_Click()

Set fs = Application.FileSearch
With fs
.lookin = "d:\access"
.filename = "*.mdb"
If .Execute > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For I = 1 To .FoundFiles.Count
MsgBox .FoundFiles(I)
Next I
Else
MsgBox "There were no files found."
End If
End With

End Sub
با توجه به شرایط فایلی را که پیدا کردی با تابع kill حذفش کن