منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
حذف مجلد - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : حذف مجلد (/showthread.php?tid=2150)

حذف مجلد - asto - 07-03-14

السلام عليكم

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

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

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

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

RE: حذف مجلد - Genius Live - 07-03-14

استخدم Kill بدلا من Delete
PHP كود :
Private Sub Command1_Click()
Call Kill("c:\text.txt") 
End Sub 

RolleyesRolleyesRolleyes

RE: حذف مجلد - asto - 07-03-14

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

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

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

RE: حذف مجلد - ممدوح الخطيب - 07-03-14

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

RE: حذف مجلد - asto - 08-03-14

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

RE: حذف مجلد - Genius Live - 08-03-14

يمكنك محاولة فتح الملف في 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 

RolleyesRolleyesRolleyes

RE: حذف مجلد - asto - 08-03-14

(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 

RolleyesRolleyesRolleyes

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

RE: حذف مجلد - ahmedabdelaliem - 08-03-14

اخي الكريم 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.