Imprimir Página - problema con error 52

Título: problema con error 52
Publicado por: z_ane_666 en 8 Julio 2010, 02:25 am

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:

'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

Título: Re: problema con error 52
Publicado por: BlackZeroX en 8 Julio 2010, 02:37 am

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

Debería ser así!¡.

Código

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

Título: Re: problema con error 52
Publicado por: Shell Root en 8 Julio 2010, 02:44 am

Código

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

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: z_ane_666 en 8 Julio 2010, 02:25 am