[VB] cancellare un file via FTP

[beog]

Dopo avervi stressato su come mandare un file via FTP con Vbasic... ora non mi resta che chiedervi come cancellarlo!!!

Grazie 1000

[matpez]

Applicato al programma che abbiamo fatto insieme viene così:


Private Declare Function FtpDeleteFile Lib "wininet.dll" Alias "FtpDeleteFileA" (ByVal hFtpSession As Long, ByVal lpszFileName As String) As Boolean

call FtpDeleteFile(lConnection, FileName)

[beog]

"insieme"

direi che hai fatto.

Grazie ancora

[matpez]

Originariamente inviato da beog
"insieme"

direi che hai fatto.

Grazie ancora

Va be dai nn stiamo a vedere questi particolari

[beog]

Ma è giusto scrivere una cosa del genere in un pulsante?

  Dim lOpen           As Long
  Dim lConnection     As Long
lOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
lConnection = InternetConnect(lOpen, Hoste, INTERNET_INVALID_PORT_NUMBER, Account, Passw, INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0)
Call FtpDeleteFile(lConnection, cartellaFTP & CFlusso)
Call InternetCloseHandle(lConnection)

Perchè mi sembra che la connessione resti aperta anche dopo aver cancellato il file

[matpez]

E da cosa lo capisci che rimane aperta?

[beog]

Perchè dopo un po che canc file mi comincia dare err di connessione e con WS_FTP mi dice che ci sono + di 5 account su quel FTP

[matpez]

...mmm il codice sembra corretto controlla solo che sia lOpen e lConnection siano diversi da 0 altrimenti nn fargli fare altro!

[beog]

Ho provato anche così, però il prob sembra persistere

Function CancFileFTP() As Boolean

  Dim sFileRemote     As String
  Dim sDirRemote      As String
  Dim lOpen           As Long
  Dim lConnection     As Long

  
  'trasferisco il file nel FTP
  DoEvents
  
  lOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
  lConnection = InternetConnect(lOpen, Hoste, INTERNET_INVALID_PORT_NUMBER, Account, Passw, INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0)

  
  If lOpen <> 0 And lConnection <> 0 Then
    
    
    sDirRemote = cartellaFTP 'root
    sFileRemote = CFlusso
    
    Call FtpDeleteFile(lConnection, sDirRemote & sFileRemote)
        
       
    Call InternetCloseHandle(lConnection)

  End If
  
End Function

[matpez]

Prova così:

Function CancFileFTP() As Boolean

  Dim sFileRemote     As String
  Dim sDirRemote      As String
  Dim lOpen           As Long
  Dim lConnection     As Long

  
  'trasferisco il file nel FTP
  DoEvents
  
  lOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
  lConnection = InternetConnect(lOpen, Hoste, INTERNET_INVALID_PORT_NUMBER, Account, Passw, INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0)

  
  If lOpen <> 0 And lConnection <> 0 Then
    
    
    sDirRemote = cartellaFTP 'root
    sFileRemote = CFlusso
    
    Call FtpDeleteFile(lConnection, sDirRemote & sFileRemote)
        
       
    Call InternetCloseHandle(lConnection)

  End If

  Call InternetCloseHandle(lOpen)  
End Function

[beog]

Penso ci sia un prob più grosso perchè a volte spedisce o cancella i file, altre volte no.

Se es. clicco 2 volte consecutive sul pulsante per spedire un file la prima volta lo spedisce la 2a no... poi asp un po, riprovo e va...