منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الصفحات : 1 2

الحين لمن ابي ملفات تنحذف من داخل ملف
اكتب

PHP كود :

Kill("C:\Windows\recent\*.*") 

اوكيه
حلو
الحين ابي اجرب انحذفت Smile

صح؟
طيب واالحين اذا انحذفت ابي تجيك ةسج يقله تم الحذف بنجاح
اوكيه ؟ حلو
الحين انا لمن احذف تنحذف الملفات الي فالملف
وازيد اضغط يقلي من البرنامج الفيجوال بيسك خطأ لم يتم العثور على نتائج
يعني يقصد ما لقي ملفات يحذفها
ابي كود يقله " تم حذف الملفات من قبل " زي كذا قصدي
مثثثثلا زي كذا
يا شباب انا اشف اذا مقصر ولااسئلتي كثيييره Sad

والله بس انا قاعد اسوي برنامج ضروري لي

السلام عليكم ورحمة الله وبركاته

تفضل أخي الكريم
هذا الكود المطلوب

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim FileName As String = "Example.txt"

        If Dir(FileName) <> "" Then

            Kill(FileName)

            MsgBox("تم حذف الملف")

        Else

            MsgBox("الملف غير موجود أو ربما تم حذفه سابقا")

        End If

    End Sub

بالتوفيق

معلش لى سؤال عشان انا قربت اتجنن
Dir
Kill
منين بتعرفو هذه الدوال

إقتباس : معلش لى سؤال عشان انا قربت اتجنن
Dir
Kill
منين بتعرفو هذه الدوال

ههههههه
طيب ....
السلام عليكم ورحمة الله وبركاته
راجــــــع الموضوع التالى وراح يفيـدك ,,, (هذا الكلام لصاحب السؤال) .
Directories

ali.alfoly كتب :معلش لى سؤال عشان انا قربت اتجنن
Dir
Kill
منين بتعرفو هذه الدوال

ههههههههه

والله يا أخي أنا بعرفها من أيام VB6

وأغلب الأوامر التي تعلمتها آنذاك كانت عن طريق Object Browser
والذي لا يزال موجودا في إصدار Visual Studio 2010
ولإظهاره ما عليك سوى الضغط على الزر F2
لتظهر لديك قائمة بكل المراجع وما تحتوي من أوامر
كما تستطيع بواسطته البحث عن أي أمر تريد على سبيل المثال Kill

بالتوفيق

الطريقة خطأ يا سورياتي
جربتها ما طلع

Adeeb alghamdi كتب :الطريقة خطأ يا سورياتي
جربتها ما طلع

السلام عليكم ورحمة الله وبركاته

أخي الكريم إذا ممكن تعطيني الكود الذي قمت بتجربته
لأن الكود مجربه وشغال عندي بشكل سليم

بالتوفيق

PHP كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim FileName As String = "Example.txt"
        If Dir(FileName) <> "" Then
            Kill(FileName)
            MsgBox("تم حذف الملف")
        Else
            MsgBox("الملف غير موجود أو ربما تم حذفه سابقا")
        End If
    End Sub 

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

لالالا خلاص مابي كيف احذف الي بالدخال عرفت Smile

اسمع ابي كيف اعرف اذا انحذفت الملفات وما بقي شي من الملفات
ابيه يقله انه ماي ملف

السلام عليكم ورحمة الله وبركاته

تفضل أخي الكريم

كود :

If System.IO.Directory.GetFiles("مسار المجلد").Length > 0 Then

            Kill("مسار المجلد\*.*")

            MsgBox("تم حذف الملف")

        Else

            MsgBox("الملف غير موجود أو ربما تم حذفه سابقا")

        End If

بالتوفيق

الصفحات : 1 2

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Adeeb alghamdi

sooriaty03

ali.alfoly

Abu Ehab

sooriaty03

Adeeb alghamdi

sooriaty03

Adeeb alghamdi

Adeeb alghamdi

sooriaty03