[SOLUCIONADO] Como crear un txt al ejecutar el formulario por primera ves?

[basdower]

Hola que tal me pregunto como hacer que al ejecutar por primera ves se cree un archivo txt en C:\Windows con dos lineas de texto solo si no EXISTE EL ARCHIVO!!!

Usuario
Contraseña

Estaba pensando en algo como esto pero como hago para que si existe el archivo no lo edite ni lo remplace .Me imagino con If??

Dim sw as new system.io.streamwriter("C:\Windows\archivo.txt")
sw.WriteLine("Usuario")
sw.WriteLine("Contraseña")
sw.Close()

Ya que eso funcionara como mi base de datos y se cambiara constantemente y también no quiero que se remplace Cada ves que se abra el form solo si no EXISTE EL ARCHIVO!!!

Gracias

[basdower]

Hola he encontrado una solución pos si alguien la desea

If My.Computer.FileSystem.FileExists("C:\archivo.txt") Then 'comprueba si el archivo existe
Else
Dim sw As New System.IO.StreamWriter("c:\archivo.txt") 'Crea el archivo si es que no existe con las siguientes lineas (si existe no lo remplaza)
sw.WriteLine("Usuario")
sw.WriteLine("Contraseña")
sw.Close()
End If

Salu2

[angel1993]

Pues te recomiendo que uses system.io

Para crear un archivo si no existe...

Código vb:

If Not System.IO.File.Exists("C:\archivo.txt") Then
            System.IO.File.CreateText("C:\archivo.txt").Close()
        End If
 

Pero tienes que tener en cuenta que no necesitas "crearlo" para escribir.. hay una funciona AppendAllText está función sirve para agregar texto a un documento, de no existir lo crea automáticamente y agrega el texto, hay que tener cuidado, ya que el texto lo agrega, hay que comprobar que no exista porque podría escribir 2 veces lo mismo...

Código vb:

If Not System.IO.File.Exists("C:\archivo.txt") Then
            System.IO.File.AppendAllText("C:\archivo.txt", "Usuario" & vbCrLf & "Contraseña")
        End If