problema con error 52

[z_ane_666]

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

Código [Seleccionar] Expandir


'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

[BlackZeroX]

En ningún momento ingresas la unidad en la variable path ademas porque pones path & texxto & ":\"

Debería ser así!¡.

Código (vb) [Seleccionar] Expandir



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!¡:

[Shell Root]

Código (vb) [Seleccionar] Expandir

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