[a_almisery]

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 " باضافه مسارك ومن ثما تعامل مع احد دوال الح