السلام عليكم
لدي مشكلة انه استعمل commom dialog لتحديد مسار ملف
المهم بعد التحديد لا استطيع حذف المجلد الذي يحوي الملف
حيث يتبين لي انه مستعمل من قبل الفيجوال بيسك
فكيف استطيع تجاوز هذا الامر
استخدم
Kill بدلا من
Delete
PHP كود :
Private Sub Command1_Click()
Call Kill("c:\text.txt")
End Sub
لا اخي اريد حذف المجلد يدويا لكن لا استطيع
حيث يتبين لي ان المجلد مستعمل من قبل الفيجوال بيسك
طبعا اريد ان اتمكن من حذف المجلد ان رغبت دون اغلاق البرنامج
لايمكن حذف مجلد به ملفات مفتوحة
يمكنك محاولة فتح الملف في
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
(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
بس كيف الاستعمال بعد كتابة اعلاه في القسم العام
اخي الكريم 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.