Mensajes

Es que lo que necesito hacer es mínimo, solo dictar y descargar o subir un fichero concreto..., y lo arreglo rápido con inet.
Como es una parte del proyecto pequeña pues la arreglo con el inet rápido.
Saludos 
P.D y en caso de que me lo quiera quitar uso las api's del inet 

Pero Limpex..., estoy preguntando como hacerlo con Inet (que es un control del vb que automatiza esto y así no tengo que enviar los comandos del ftp por winsock).
Y para dictar con inet es "dir". Pero luego los datos no se como se reciben después de haber hecho eso...
Saludos 

Bueno, pues tengo unos mas de mis problemas. Quiero listar un directorio ftp por inet el directorio "/" (el principal)...
Creo que se enviaba la instrucción "DIR" para dictar..., pero no se por adonde recibo los datos ni como acoplarlos.
Saludos 

Administrador
Coadmin
Moderador global
Colaborador
Laboratorio
Taller php
Usuario normal
Visitante.
Mas información:
http://foro.elhacker.net/index.php/topic,67391.0.html

Pero les ofrecí la bd hice una copia de seguridad por si el administrador quería arreglarlo... y restaurar el foro totalmente... y no me hizo ni caso
Jo  :'( la maldición de Ertai y elhacker.net duradera para siempre  , tendremos que llamar al exorcista haber si puede hacer algo  xD
Pero que mas da joder todo el foro que solo un post si lo puede restaurar con solo contactar a mi email con la copia de la bd 
Además la mayoría de foros estaban abandonados..., no había mensajes desde hacía bastante tiempo.
Saludos 
P.D además dije que lo sentía y no volvería hacer nada igual, tengo derecho a un exorcista para que me libre de la maldición de ese post  xDD
P.D.2 fuera de cachondeo..., creo que devería quedar el tema de lo que paso en mi foro cerrado y no se hablase mas de él.

Parece que he sido maldecido toda mi vida con eso  :'(
Ya dije que lo sentía y que fue un error..., cuantas veces me lo vas a recordar Ertai 
Saludos 
P.D también puse que yo avisaba al admin incluso le puse una copia de seguridad de la bd pero no me hizo ni caso  :shocked:

Yo no estoy de acuerdo en el ejemplo del phpnuke..., me parece mal que al día siguiente aparezcan muchísimas web defaceadas. Pero si ese bug a salido hace 6 meses, pues yo daría unos avisos al administrador y si no me hace ni caso o esa web está abandonada la defaceo. Siempre dejando mi email para que contacten conmigo y pueda ser de ayuda para arreglar la web.
Saludos 

Pues tengo el siguiente problema. Tengo una vadena:

C:\posiblecarpeta\posiblefichero.extensión

Y de está cadena, necesito sacar lo del final. posiblefichero.extensión
Saludos 

No creo que esté hay el problema. Lo que pasa es que está función devuelbe false:

FtpPutFile(hConnection, LocalFile, RemoteFile, FTP_TRANSFER_TYPE_BINARY, 0)

Por eso se compara y vale as long.
Voy haber si cogiendo código de la descarga puedo arreglarlo 

Pues nada, ya conseguí mi módulo que emula a inet. Y baja super bien..., pero para subir ficheros me estoy dejando el pellejo y no consigo nada.
Haber si me podeis ayudar.
Esta es la órden en el formulario para subir:

Código [Seleccionar] Expandir

Function subir(fichero As String)

Dim oFTP As New clsFTP
   
   
    oFTP.OpenConnection IP, usuario, pass, "/"

  [quote]  oFTP.UploadFile "C:\virus\a.zip", "a.zip"[/quote]

    oFTP.CloseConnection
  end function 
 
Y en un módulo de clase la función para subir

Código [Seleccionar] Expandir

Public Function UploadFile(ByVal LocalFile As String, ByVal RemoteFile As String) As Boolean
    Dim bRet As Long
   
    bRet = FtpPutFile(hConnection, LocalFile, RemoteFile, FTP_TRANSFER_TYPE_BINARY, 0)
   
    If bRet = False Then
        App.LogEvent "Devx Sample failed to upload file " & LocalFile
        Call MsgBox("Error") 'puesto por mi  ;D
        Exit Function
    End If
End Function
Pues la cuestión es que no me lo sube nunca, se conecta superbien y me descarga ficheros anteriormente subidos pero no es capaz de subir ninguno, haber si me podeis hechar una mano.
La función de descarga es esta:

Código [Seleccionar] Expandir

Public Function DownloadFile(FileName As String, Destination As String) As Boolean
    Dim sRemoteFile As String
    Dim sNewFile As String
    Dim sCurrentDir As String
   
   
    On Error GoTo out
   
    DownloadFile = False
   
    'Only if a valid connection...
    If hConnect Then
        ' Get the Current Internet directory
        sCurrentDir = GetFTPDirectory(hConnect)
       
        ' Setup the file name to retrieve and the destination
        sRemoteFile = sCurrentDir & FileName
        If Right$(Destination, 1) <> "\" Then
            Destination = Destination & sSlash
        End If
        sNewFile = Destination & FileName
         
        'make sure there is no file with the same name as specified
        Set oFSO = CreateObject("Scripting.FileSystemObject")
       
        If oFSO.FileExists(sNewFile) Then
          oFSO.DeleteFile sNewFile
        End If
       
        ' Download file
        If FtpGetFile(hConnect, sRemoteFile, sNewFile, False, FILE_ATTRIBUTE_ARCHIVE, _
            FTP_TRANSFER_TYPE_UNKNOWN, 0&) Then
            ' Success
            DownloadFile = True
            ErrLog "clsFTP.DownloadFile: Download Succeeded. Time:" & CStr(Now), 4
        Else
            ' Raise an error
            ErrLog "clsFTP.DownloadFile: Download Failed. " & Err.Number & ":" & _
                                                            Err.Description, 1
        End If
    End If
    Exit Function
out:
    ErrLog "clsFTP.DownloadFile method failed. Error - " & Err.Description, 1
End Function
Saludos y ojala me podais ayudar