¿Cómo hacer que cree este archivo txt en donde tengo la aplicación?

[Aquaventus]

Hola shugonman podrias hacer esto :

Código vb.net:

cone = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ruta
Const fic As String = "Prueba.txt"
Dim texto As String = cone
'En la variable path Almacenas la ruta de tu aplicacion y le adjuntas el nombre de tu variable FIC
Dim path As String = System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase.ToString()).Remove(0, 6) & "\" & fic
Dim sw As New System.IO.StreamWriter(path)
sw.WriteLine(texto)
sw.Close()
login.leer()
 

Lo pruebas y me comentas. Saludos!.