Visual Basic 6 - come cancellare un file da un server-web

Forum - Visual Basic 6 - come cancellare un file da un server-web

fpassa (Normal User)
Newbie

Messaggi: 4
Iscritto: 16/02/2014

Postato alle 0:52
Domenica, 16/02/2014

Salve, sto costruendo una applicazione in Vb6 che tenga allineata la base dati del mio PC con una immagine residente su server-web. Riesco tranquillamente a fare upload e download ma non so some fare a cancellare un file che risiede sul server web. Grazie a tutti

TheDarkJuster (Member)
Guru^2

Messaggi: 1620
Iscritto: 27/09/2013

Postato alle 10:03
Domenica, 16/02/2014

dipende da come interagisci con il server......

fpassa (Normal User)
Newbie

Messaggi: 4
Iscritto: 16/02/2014

Postato alle 15:08
Mercoledì, 19/02/2014

E' un programma applicativo, sviluppato in VB6 ed al momento utilizzo una funzionalità di Getfile per leggere ed una di PutFile per scrivere. Io non sono esperto in materia e le routines di accesso (GetFile e PutFile) le ho reperite chiedendo suggerimenti da WEB (come sto facendo ora per la cancellazione). Posso essere più preciso con l'indicazione delle istruzioni, se può essere utile. Grazie per la collaborazione.

fpassa (Normal User)
Newbie

Messaggi: 4
Iscritto: 16/02/2014

Postato alle 14:52
Giovedì, 20/02/2014

troppe poche informazioni per darmi una mano ?

TheDarkJuster (Member)
Guru^2

Messaggi: 1620
Iscritto: 27/09/2013

Postato alle 17:16
Giovedì, 20/02/2014

Non conosco il VB6, e non ho mai visto quei due metodi. Voglio sapere almeno che protocollo stai usando. Il server è un FTP?

fpassa (Normal User)
Newbie

Messaggi: 4
Iscritto: 16/02/2014

Postato alle 0:53
Venerdì, 21/02/2014

Si, trattasi di FTP. Ecco uno stralcio del mio programma vb6 con le istruzioni per copiare un file dal mio PC allo spazio web a me assegnato:

Codice sorgente - presumibilmente VB.NET

Sub Main
        ...
         rcd szDirRemote
         
         bRet = FtpPutFile(hConnection, szFileLocal, szFileRemote, dwType, 0)
         If bRet = False Then
             MsgBox "Errore controllo PUT", vbCritical + vbOKOnly, "Attenzione!"
             Exit Sub
         End If
       ...
end sub
 
Private Sub rcd(pszDir As String)
   Dim sPathFromRoot As String
   Dim bRet As Boolean
   If InStr(1, pszDir, txtServerText) Then
   sPathFromRoot = Mid(pszDir, Len(txtServerText) + 1, Len(pszDir) - Len(txtServerText))
   Else
   sPathFromRoot = pszDir
   End If
   If sPathFromRoot = "" Then sPathFromRoot = "/"
   bRet = FtpSetCurrentDirectory(hConnection, sPathFromRoot)
End Sub
 
Public Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" _
(ByVal hFtpSession As Long, ByVal lpszLocalFile As String, _
      ByVal lpszRemoteFile As String, _
      ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean

nessuno (Normal User)
Guru^2

Messaggi: 6405
Iscritto: 03/01/2010

Postato alle 13:33
Venerdì, 21/02/2014

FtpDeleteFile
http://msdn.microsoft.com/en-us/library/windows/desktop/aa ...

Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
---
Il grande studioso italiano Bruno de Finetti ( uno dei padri fondatori del moderno Calcolo delle probabilità ) chiamava il gioco del Lotto Tassa sulla stupidità.