24-07-14, 08:05 AM
الكود التالي ربما يساعدك ف الحصول علي اسم الفهرس الموجود علي جهاز المستخدم...........فيما يخص حذف الملفات أعتقد أنه ليس صعبا الأن طالما أصبح لديك الفهرس الذي به اسم المستخدم
بالنسبة لإستخدام الكود فهو كالتالي
كود :
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
