[asto]

السلام عليكم

لدي مشكلة انه استعمل commom dialog لتحديد مسار ملف

المهم بعد التحديد لا استطيع حذف المجلد الذي يحوي الملف

حيث يتبين لي انه مستعمل من قبل الفيجوال بيسك

فكيف استطيع تجاوز هذا الامر

[Genius Live]

استخدم Kill بدلا من Delete

PHP كود :

Private Sub Command1_Click()
Call Kill("c:\text.txt") 
End Sub 


[asto]

لا اخي اريد حذف المجلد يدويا لكن لا استطيع

حيث يتبين لي ان المجلد مستعمل من قبل الفيجوال بيسك

طبعا اريد ان اتمكن من حذف المجلد ان رغبت دون اغلاق البرنامج

[ممدوح الخطيب]

لايمكن حذف مجلد به ملفات مفتوحة

[asto]

طيب كود الاغلاق رجاء

[Genius Live]

يمكنك محاولة فتح الملف في exclusive mode

PHP كود :

Private Function IsFileOpen(ByVal filename As String) As Boolean
Try
System.IO.File.Open(filename, IO.FileMode.Open,
IO.FileAccess.Read, IO.FileShare.None)
FileClose(1)
Return False
Catch ex As Exception
Return True
End Try
End Function 


[asto]

(08-03-14, 09:16 AM)Genius Live كتب : يمكنك محاولة فتح الملف في exclusive mode

PHP كود :

Private Function IsFileOpen(ByVal filename As String) As Boolean
Try
System.IO.File.Open(filename, IO.FileMode.Open,
IO.FileAccess.Read, IO.FileShare.None)
FileClose(1)
Return False
Catch ex As Exception
Return True
End Try
End Function 


بس كيف الاستعمال بعد كتابة اعلاه في القسم العام

[ahmedabdelaliem]

اخي الكريم Genius Live


Private Function IsFileOpen(ByVal filename As String) As Boolean
Try
System.IO.File.Open(filename, IO.FileMode.Open,
IO.FileAccess.Read, IO.FileShare.None)
FileClose(1)
Return False
Catch ex As Exception
Return True
End Try
End Function




اخي الكريم انت في قسم فيجوال بيسك 6 وليس net.