مشکل این دستور چیه"Kill App.Path & "*.TMP

[majjjj]

وقتی این دستور اجرا میشه با وجود فایلهای تمپ میگه هیچ فایلی پیدا نمیشه

[Danial_Yousefi]

مشکلش اینه که 1 بک اسلش کم داره ببین "Kill App.Path & "\*.TMP
خالی بستم این جوری نمیشه از راه عادی باید یه فایل لیست(file1) بذاری بعد
file1.path=app.path
for i= 1 to file1.listcount -1
kill file1.path+"\"+file1.list(i) 'hazf tak tak file ha
next i
file1.refresh
:)

[majjjj]

مشکلش اینه که 1 بک اسلش کم داره ببین "Kill App.Path & "\*.TMP
خالی بستم این جوری نمیشه از راه عادی باید یه فایل لیست(file1) بذاری بعد
file1.path=app.path
for i= 1 to file1.listcount -1
kill file1.path+"\"+file1.list(i) 'hazf tak tak file ha
next i
file1.refresh
:)
خودم فهمیدم


Private Sub Form_Load()
On Error GoTo nextline
Kill App.Path & "\" & "*.tmp"
nextline:
End Sub

[Danial_Yousefi]

به سلامتی ولی من یه نکته یادم رفت بگم اینه که "file1.pattern="*.tmp

[ab_ba]

if len(App.Path) > 3 then
Kill App.Path & "\" & "*.tmp"
else
Kill App.Path & "*.tmp"
end if

[majjjj]

if len(App.Path) > 3 then
Kill App.Path & "\" & "*.tmp"
else
Kill App.Path & "*.tmp"
end if
اما این خیلی بعیده که کسی فایلهاش رو تو ریشه یکک درایو ذخیره کنه

[majjjj]

به سلامتی ولی من یه نکته یادم رفت بگم اینه که "file1.pattern="*.tmp
متشکر از کمکی که کردید