hola amigos estoy haciendo un programa que guarda un archivo de texto llamado hola.txt en la unidad que se indica en un cuadro de text
'primero creo un control text1 con la propiedad text vacia y un command1, luego pongo esto
Private Sub Command1_Click()
Dim path As String
texxto = Text1.Text
Open path & texxto & ":\" & "hola.txt" For Append As #1
Print #1, "hola mundo"
Close #1
End Sub
pero no funciona sale error 52 nombre o numero de archivo incorrecto, no funciona aun poniendo entre comillas la letra de unidad en el control text1. espero que me ayuden
saludos
En ningún momento ingresas la unidad en la variable path ademas porque pones path & texxto & ":\"
Debería ser así!¡.
Dim Int_ff As Integer
Dim Str_Disk As String * 1
Int_ff = FileSystem.FreeFile
Str_Disk = "c"
Open Str_Disk & ":\" & "hola.txt" For Append As Int_ff
...
Sangriento Infierno lunar!¡:
Private Sub Command1_Click()
Dim strPath As String ' # Variable que contendrá la ruta del archivo.
Dim strTexto As String ' # Variable que contendrá el texto para ponerlo dentro del archivo.
' # Seteo de variables.
strPath = "C:\PoC.txt"
strTexto = "Hola Mundo"
Open strPath For Append As #1 ' # Abrimos el archivo.
Print #1, strTexto 1 ' # Escribimos en el archivo.
Close #1 ' # Cerramos el archivo.
End Sub