[أسامة]

السلام عليكم تفضل اخى

كود :

 Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
       '+اسم المجلد مسار المجلد
       Dim path As String = My.Computer.FileSystem.SpecialDirectories.Desktop + "\adel27"
       'اذالم يعثر على المجلد ينشأ مجلد جيدي
       If Not Directory.Exists(path) Then
           Directory.CreateDirectory(path)
       End If
   End Sub