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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : حذف الملفات بضغطه زر (/showthread.php?tid=3541)

حذف الملفات بضغطه زر - 3booy201 - 24-07-14

السلام عليكم
اتمنى مساعدتي
اريد كود لحذف الملفات تلقائيا من مسار محدد اي حذف كل الملفات داخل المسار المحدد
هل يمكن ذلك ؟ اتمنى اعطائي الكود اذا وجد Smile
ثانيا
المشكله ان المسارات التي اريدها فيها اسم المستخدم User
اي سوف يعمل في جهازي لكن لن يعمل عند غيري
اتمنى المساعده

وشكرا Smile

RE: حذف الملفات بضغطه زر - silverlight - 24-07-14

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

كود :
Public Shared Function GetDefaultDirectory() As String
        Dim txt As String = ""
        Dim paths As String() = Environment.GetFolderPath(Environment.SpecialFolder.Personal).Split(New Char() {"\"c})
        For i As Integer = 0 To paths.Length - 2
            txt = txt & paths(i) & "\"
        Next
        Dim defaultDirectory As String = Nothing
        Try
            If Not Directory.Exists(txt) Then
                Directory.CreateDirectory(txt)
            End If
            defaultDirectory = txt
        Catch ex As Exception
            If TypeOf ex Is IOException AndAlso TypeOf ex Is UnauthorizedAccessException AndAlso TypeOf ex Is ArgumentException Then
                defaultDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Personal)
            End If
        End Try
        Return defaultDirectory
    End Function

بالنسبة لإستخدام الكود فهو كالتالي

كود :
Dim userDirectory As String = GetDefaultDirectory


RE: حذف الملفات بضغطه زر - 3booy201 - 25-07-14

اعتذر لكن هل من الممكن تعديل الكود اي كتابه بالعربي ك توضيح
لاني لم اعرف مكان المسار حتى Sad

RE: حذف الملفات بضغطه زر - 3booy201 - 25-07-14

هل يوجد لديك سكايب لكي اتواصل معك ؟
احتاجه في امر مهم جدا Sad
اذا توفرت لديك وسيله تواصل ارسلها لي على الخاص
Smile

RE: حذف الملفات بضغطه زر - hassan - 25-07-14

(25-07-14, 01:35 AM)3booy201 كتب : اعتذر لكن هل من الممكن تعديل الكود اي كتابه بالعربي ك توضيح
لاني لم اعرف مكان المسار حتى Sad

شوف عندي لك حل بصيط اكتب هذا الكود


PHP كود :
IO.Directory.Delete("مسار الملف")
IO.Directory.CreateDirectory("مسار الملف") 

افهمك الكود

في الكود الاول طلبنه انه يحذف الملف في الكود الثاني طلبت منه يسوي لك ملف يعني انت اكتب مسار الملف الي تبي تفضيه في الكود الاول والثاني ولا يختلف مسار عن مسار عشان يسوي الي انت تبيه وبكذا حذف لك الي في الملف



وشكرا

RE: حذف الملفات بضغطه زر - silverlight - 25-07-14

كود :
Imports System.IO

Public Class Form1
    ' +=========================================================================================
    ' مثال الهدف منه التأكد من ان الدالة تعمل بشكل جيد و تجلب الفهرس الرئيس ف الكمبيوتر
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim userDirectory As String = GetDefaultDirectory()
        Me.Text = userDirectory
    End Sub
    ' +=========================================================================================

    Public Shared Function GetDefaultDirectory() As String
        Dim txt As String = ""
        Dim paths As String() = Environment.GetFolderPath(Environment.SpecialFolder.Personal).Split(New Char() {"\"c})
        For i As Integer = 0 To paths.Length - 2
            txt = txt & paths(i) & "\"
        Next
        Dim defaultDirectory As String = Nothing
        Try
            If Not Directory.Exists(txt) Then
                Directory.CreateDirectory(txt)
            End If
            defaultDirectory = txt
        Catch ex As Exception
            If TypeOf ex Is IOException AndAlso TypeOf ex Is UnauthorizedAccessException AndAlso TypeOf ex Is ArgumentException Then
                defaultDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Personal)
            End If
        End Try
        Return defaultDirectory
    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim userDirectory As String = GetDefaultDirectory()
        ' طبقا لسؤالك أنت تعرف كيف تحذف الملفات  و لكن الملفات موجودة علي فهرس المستخدم
        ' كل ما عليك أن تفعله الأن هو أن تمرر اسم الفهرس أعلاه
        ' و هو هنا يمثل فهرس المستخدم ثم تبحث عن الملفات المراد حذفها
        ' أو لو كنت تعرف اسم الملف تحديدا يمكن ان تكتبه بعد اسم الفهرس الذي حصلت عليه من الدالة
        ' ثم تحذف الملفات


    End Sub
End Class


RE: حذف الملفات بضغطه زر - kslawy - 26-07-14

(25-07-14, 03:07 PM)silverlight كتب :
كود :
Imports System.IO

Public Class Form1
    ' +=========================================================================================
    ' مثال الهدف منه التأكد من ان الدالة تعمل بشكل جيد و تجلب الفهرس الرئيس ف الكمبيوتر
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim userDirectory As String = GetDefaultDirectory()
        Me.Text = userDirectory
    End Sub
    ' +=========================================================================================

    Public Shared Function GetDefaultDirectory() As String
        Dim txt As String = ""
        Dim paths As String() = Environment.GetFolderPath(Environment.SpecialFolder.Personal).Split(New Char() {"\"c})
        For i As Integer = 0 To paths.Length - 2
            txt = txt & paths(i) & "\"
        Next
        Dim defaultDirectory As String = Nothing
        Try
            If Not Directory.Exists(txt) Then
                Directory.CreateDirectory(txt)
            End If
            defaultDirectory = txt
        Catch ex As Exception
            If TypeOf ex Is IOException AndAlso TypeOf ex Is UnauthorizedAccessException AndAlso TypeOf ex Is ArgumentException Then
                defaultDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Personal)
            End If
        End Try
        Return defaultDirectory
    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim userDirectory As String = GetDefaultDirectory()
        ' طبقا لسؤالك أنت تعرف كيف تحذف الملفات  و لكن الملفات موجودة علي فهرس المستخدم
        ' كل ما عليك أن تفعله الأن هو أن تمرر اسم الفهرس أعلاه
        ' و هو هنا يمثل فهرس المستخدم ثم تبحث عن الملفات المراد حذفها
        ' أو لو كنت تعرف اسم الملف تحديدا يمكن ان تكتبه بعد اسم الفهرس الذي حصلت عليه من الدالة
        ' ثم تحذف الملفات

    End Sub
End Class

اللي فهمتو من الكود دا يا 'silverlight' إنو لو كان بالجهاز 5 مستخدمين حيقوم الكود بالعثور علي المستخدم اللي متصل الآن .. أليس كذلك ؟؟

RE: حذف الملفات بضغطه زر - a_almisery - 31-07-14

PHP كود :
Imports System.IO

Public Class Form1

    Public Shared Function GetDefaultDirectory() As String
        Dim txt As String = ""
        Dim paths As String() = Environment.GetFolderPath(Environment.SpecialFolder.Personal).Split(New Char() {"\"c})
        For i As Integer = 0 To paths.Length - 2
            txt = txt & paths(i) & "\"
        Next
        Dim defaultDirectory As String = Nothing
        Try
            If Not Directory.Exists(txt) Then
                Directory.CreateDirectory(txt)
            End If
            defaultDirectory = txt
        Catch ex As Exception
            If TypeOf ex Is IOException AndAlso TypeOf ex Is UnauthorizedAccessException AndAlso TypeOf ex Is ArgumentException Then
                defaultDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Personal)
            End If
        End Try
        Return defaultDirectory
    End Function
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Text = GetDefaultDirectory()
        Dim path1 As String = GetDefaultDirectory()
        Dim path As String = path1 & " المسـأر المعروف لديك  "
        Label1.Text = path
    End Sub
End Class 


تعــامل مع قيــمه الــ " path " باضافه مسارك ومن ثما تعامل مع احد دوال الح