-
لطفا راهنمایی کنید
فرض کنیم من چندتا فایل دارم که میخوام اونا رو حذف کنم اینم مسیراش
D:new/a.txt
E:new/a.txt
F:new/a.txt
با روش معمولی اگر مسیر اولی یعنی
D:new/a.txt اصلا وجود نداشته باشه.برنامه خطا میده که فایلو پیدا نکرده در حالی که بقیه مسیرها وجود دارند اونا رو دیگه پاک نمیکنه.خوب میخوام روشی معرفی کنید که اگه مسیر اولی رو پیدا نکنه اونو رد کنه و بره سراغ مسیر دوم و اونو پاک کنه و اگر فرض کنیم اونم نباشه بره مسیر سوم و اونو پاک کنه.این روش رو هم در مورد حذف پوشه ها نیز توضیح دهید.با تشکر t
-
سلام
البته در VB9 یا همان نسخه 2008 همچین خطایی نمیدهد ولی بحرحال راه حل در VB6 چنین است:
کد:
'VB6-1998
Dim files() As Variant
Dim index As Integer
files = Array("C:\file1.txt", "C:\file2.txt", "C:\file3.txt")
On Error Resume Next
For index = 0 To UBound(files)
Kill (files(index))
Next
On Error GoTo 0
'...
در VB9 هم میتوان کدی شبیه فوق نوشت ولی کد مطلوب و ایده ال چنین خواهد بود:
کد:
'VB9-2008
Dim files() As String = {"C:\file1.txt", "C:\file2.txt", "C:\file3.txt"}
For Each file As String In files
System.IO.File.Delete(file)
Next
'یا این یکی کد هم بد نیست ...
For Each file As String In New String() {"C:\file1.txt", "C:\file2.txt", "C:\file3.txt"}
System.IO.File.Delete(file)
Next