[hamada558]

جرب وخبرني، في المرة القادمة ضع مثال لما تريد ولا تتركنا ننشء كل شيء من الصفر منشان نجرب

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If cnn.State <> ConnectionState.Open Then cnn.Open()

    Dim dirArchive As String = "مسار ثابت"

    If New SqlCommand("Select COUNT(id) From table1 Where idno=" & TextBox2.Text, cnn).ExecuteScalar > 0 Then
        Dim i As Integer = 1
        Dim d As String = String.Concat(dirArchive, "\", TextBox2.Text.Trim, "\")
        Do
            If Not IO.Directory.Exists(d & i.ToString("0000")) Then Exit Do
            i += 1
        Loop
        IO.Directory.CreateDirectory(d & i.ToString("0000"))
        MsgBox("تنبيـه بأن لديه ملف مسبق")

    Else
        IO.Directory.CreateDirectory(String.Concat(dirArchive, "\", TextBox2.Text.Trim))
        Dim ret As Integer = New SqlCommand("Insert Into table1 (name, idno) Values ('" & TextBox1.Text & "', '" & TextBox2.Text & "')", cnn).ExecuteScalar
    End If

    If cnn.State <> ConnectionState.Closed Then cnn.Close()
End Sub