function upload n'upload pas

Question

voila j'ai m'a fonction FtpGetFile qui ne marche pas sa ne veux pas
uploader saver vous pourquoi cette fonction doi marcher car je les
recup sur une srouce





voila la fonction



Public Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" _

(ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, _

      ByVal lpszNewFile As String, ByVal
fFailIfExists As Boolean, ByVal dwFlagsAndAttributes As Long, _

      ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean





voila le code





Session = InternetOpen("Compagnion", INTERNET_OPEN_TYPE_DIRECT, "", "", INTERNET_FLAG_NO_CACHE_WRITE)

If Session <> 0 Then

    server = InternetConnect(Session, Host1(n), "21",
"anonymous", "user@server.com", INTERNET_SERVICE_FTP,
INTERNET_FLAG_EXISTING_CONNECT, &H0)

    If server = 0 Then

        Set itmx = ListView1.ListItems.Add(, , "bad")

        itmx.SubItems(1) = Host1(n)

        InternetCloseHandle Session



    Else

    Set itmx = ListView1.ListItems.Add(, , "Done")

    itmx.SubItems(1) = Host1(n)

    bRet = FtpGetFile(server, taille1, taille1 & directory2_ & taille1, False, _

    INTERNET_FLAG_RELOAD, FTP_TRANSFER_TYPE_ASCII, 0)

    

   If bRet = False Then

   itmx.SubItems(4) = directory2_

   itmx.SubItems(5) = "No"

   itmx.SubItems(13) = os2_

   itmx.SubItems(14) = res2_

   Else

   itmx.SubItems(4) = directory2_

   itmx.SubItems(5) = "Yes"

   itmx.SubItems(13) = os2_

   itmx.SubItems(14) = res2_

   End If



    

    

    End If

--==Papi Psycho==--

papipsycho · Answer

a oui javai oublier de dire sa se connect bien au serveur

--==Papi Psycho==--

cs_DARKSIDIOUS · Answer

taille1 & directory2_ & taille1, c'est un nom de fichier valide ?


V&#233;rifie &#233;galement si tu te trouve dans le bon dossier !


DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

papipsycho · Answer

moi je pense que c bon voila tout le code Private Sub Image1_Click() Arret = True CommonDialog1.DialogTitle = "Ouvrire" CommonDialog1.Flags = cdlOFNFileMustExist + cdlOFNHelpButton CommonDialog1.Filter = "Fichier log (*.log)|*.log" CommonDialog1.ShowOpen If CommonDialog1.FileName <> "" Then 'annuler Image2.Enabled = 1 Stop1.Enabled = 1 Dim Host1() As String Dim temp As String Dim i As Integer Dim n As Integer Dim bRet As Boolean Open "Compagnion.ini" For Input As #1 For i = 1 To 6 Input #1, upload1 Next i Close z$ = upload1 upload1_ = Mid$(z$, InStrRev(z$, "=") + 1) If upload1_ = "1Mo" Then taille1 = "1mo.up" Else taille1 = "1ko.up" End If Open CommonDialog1.FileName For Input As #1 Do While Not EOF(1) If Arret = False Then Exit Do End If n = n + 1 ReDim Preserve Host1(n) Line Input #1, Host1(n) Line Input #1, rien1 Line Input #1, directory1 Line Input #1, del1 Line Input #1, os1 Line Input #1, res1 directory1_ = Mid$(directory1, InStrRev(directory1, ":") + 1) directory2_ = Mid$(directory1_, InStrRev(directory1_, " ") + 1) res1_ = Mid$(res1, InStrRev(res1, ":") + 1) res2_ = Mid$(res1_, InStrRev(res1_, " ") + 1) os1_ = Mid$(os1, InStrRev(os1, ":") + 1) os2_ = Mid$(os1_, InStrRev(os1_, " ") + 1) Session = InternetOpen("Compagnion", INTERNET_OPEN_TYPE_DIRECT, "", "", INTERNET_FLAG_NO_CACHE_WRITE) If Session <> 0 Then server = InternetConnect(Session, Host1(n), "21", "anonymous", "user@server.com", INTERNET_SERVICE_FTP, INTERNET_FLAG_EXISTING_CONNECT, &H0) If server = 0 Then Set itmx = ListView1.ListItems.Add(, , "bad") itmx.SubItems(1) = Host1(n) InternetCloseHandle Session Else Set itmx = ListView1.ListItems.Add(, , "Done") itmx.SubItems(1) = Host1(n) bRet = FtpGetFile(server, taille1, taille1 & directory2_ & taille1, False, _ INTERNET_FLAG_RELOAD, FTP_TRANSFER_TYPE_ASCII, 0) If bRet = False Then itmx.SubItems(4) = directory2_ itmx.SubItems(5) = "No" itmx.SubItems(13) = os2_ itmx.SubItems(14) = res2_ Else itmx.SubItems(4) = directory2_ itmx.SubItems(5) = "Yes" itmx.SubItems(13) = os2_ itmx.SubItems(14) = res2_ End If End If End If For i = 1 To 2: Line Input #1, temp: Next DoEvents Loop Close #1 End If End Sub --==Papi Psycho==--

Function upload n'upload pas

3 réponses

Discussions similaires