VB 2008 login systeem

[creative]

hallo mede helpmij'ers ik zit met een klijn probleempje

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If My.Computer.FileSystem.DirectoryExists("D:\users\") = True Then

        Else

            MkDir("D:\users")
        End If


[SIZE="6"]        If My.Computer.FileSystem.DirectoryExists("D:\users") + TextBox1.Text + "\" = True Then[/SIZE]

            MsgBox("Error, Account is al ingebruik")
        Else
            If TextBox1.Text = "" Then

                MsgBox("error, je gebruikersnaam moet minimaal 5 letters bestaan")
            Else
                If TextBox2.Text = "" Then

                    MsgBox("Error, Voer een wachtwoord in ")

                Else
                    MkDir("D:\users\" + TextBox1.Text)
                    Dim username As New System.IO.StreamWriter("D:\users\" + TextBox1.Text + "\" + "username.txt")
                    username.Write(TextBox1.Text)
                    username.Close()
                    Dim password As New System.IO.StreamWriter("D:\users\" + TextBox1.Text + "\" + "password.txt")
                    password.Write(TextBox2.Text)
                    password.Close()




                End If
            End If

        End If

If My.Computer.FileSystem.DirectoryExists("D:\users") + TextBox1.Text + "\" = True Then word steeds gee; wat is er fout aan ?

 

[ninjaplayer]

Programmeer je in VB6 of VB .net (VB 05/08)? Als je programmeerd in VB .net, moet je (denk ik) de +'en vervangen door een &. + Is voor cijfers en & voor letters.

 

[creative]

er staat bij de title : VB2008 login systeem

 

[Tdj]

Probeer eens in plaats van:
My.Computer.FileSystem.DirectoryExists()

Deze functie:
System.IO.Directory.exist()

 

[creative]

hoe moet ik die invoegen dan ?

 

[ninjaplayer]

hoe moet ik die invoegen dan ?

Gewoon My.Computer.FileSystem.DirectoryExists() vervangen door: System.IO.Directory.exist()

 

[bn2vs]

= true is een beetje nutteloze vergelijking denk je niet? xD

 

[creative]

Gewoon My.Computer.FileSystem.DirectoryExists() vervangen door: System.IO.Directory.exist()

jammer werkt ook al niet , dan krijg ik allemaal streepjes er onder

 

[ninjaplayer]

Je bent volgens mij de \ tussen D:\Users en TextBox1.Text vergeten. Het moet zijn:

If My.Computer.FileSystem.DirectoryExists("[COLOR="Red"]D:\users\[/COLOR]") & TextBox1.Text & "\" = True Then

 

[creative]

Heej , ja klopt Bedankt :thumb: !