elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Entrar al Canal Oficial Telegram de elhacker.net


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  problema con error 52
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: problema con error 52  (Leído 1,340 veces)
z_ane_666

Desconectado Desconectado

Mensajes: 64


Ver Perfil
problema con error 52
« 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


« Última modificación: 8 Julio 2010, 02:27 am por z_ane_666 » En línea

BlackZeroX (Astaroth)
Wiki

Desconectado Desconectado

Mensajes: 3.132


I'Love...!¡.


Ver Perfil WWW
Re: problema con error 52
« Respuesta #1 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
  1.  
  2. Dim Int_ff              As Integer
  3. Dim Str_Disk            As String * 1
  4.    Int_ff = FileSystem.FreeFile
  5.    Str_Disk = "c"
  6.    Open Str_Disk & ":\" & "hola.txt" For Append As Int_ff
  7.      ...
  8.  
  9.  

Sangriento Infierno lunar!¡:


En línea




CScript (Actualizado 26/06/2013).

FileX <-- Re-modelando...
Web Principal-->[ Blog(VB6/C/C++) | Host File | Scan Port) ]

The Dark Shadow is my passion.
El infierno es mi Hogar, mi novia es Lilit y el metal mi relig
Shell Root
Moderador Global
***
Desconectado Desconectado

Mensajes: 3.705


WOS & Khan & Calero LDN


Ver Perfil WWW
Re: problema con error 52
« Respuesta #2 en: 8 Julio 2010, 02:44 am »

Código
  1. Private Sub Command1_Click()
  2.  Dim strPath As String ' # Variable que contendrá la ruta del archivo.
  3.  Dim strTexto As String ' # Variable que contendrá el texto para ponerlo dentro del archivo.
  4.  
  5.  ' # Seteo de variables.
  6.  strPath = "C:\PoC.txt"
  7.  strTexto = "Hola Mundo"
  8.  
  9.  Open strPath For Append As #1 ' # Abrimos el archivo.
  10.    Print #1, strTexto 1 ' # Escribimos en el archivo.
  11.  Close #1 ' # Cerramos el archivo.
  12. End Sub
En línea

Por eso no duermo, por si tras mi ventana hay un cuervo. Cuelgo de hilos sueltos sabiendo que hay veneno en el aire.
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
AYUDA! Problema (Error 1452)
Bases de Datos
Geg1 8 2,032 Último mensaje 16 Marzo 2018, 19:37 pm
por srWhiteSkull
Problema con un error 0xc000005
Dudas Generales
Baphomet2204 0 302 Último mensaje 22 Septiembre 2019, 17:25 pm
por Baphomet2204
Error en un problema
Programación C/C++
ProZx 3 694 Último mensaje 19 Abril 2020, 14:55 pm
por @XSStringManolo
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines