Discussion :

[Safaritn]

Bonjour à toutes et à tous,

Dans mon code VB6, je fais ce que suit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
For i = 0 To filEnvoie.ListCount - 1
    NomFichier = filEnvoie.List(i)
    If Len(Dir(Mid(NomFichier, 1, InStr(1, NomFichier, ".") - 1) & ".bat")) = 0 Then
                Open Mid(NomFichier, 1, InStr(1, NomFichier, ".") - 1) & ".bat" For Output As #1
            Else
                Open Mid(NomFichier, 1, InStr(1, NomFichier, ".") - 1) & ".bat" For Append As #1
    End If
    Print #1, "ftp -s:" & NomFichier & vbCrLf
    Close #1
    If Shell("cmd /c " & Mid(NomFichier, 1, InStr(1, NomFichier, ".") - 1) & ".bat" & " >> " & Mid(NomFichier, 1, InStr(1, NomFichier, ".") - 1) & "_log.log", vbHide) Then
    End If
 
     Traitlog (Mid(NomFichier, 1, InStr(1, NomFichier, ".") - 1) & "_log.log")
    End If
Next

Le problème est que lors de l'exécution de cette fonction, le système m'affiche un message d'erreur indiquant que le fichier .log (le fichier de redirection de la commande FTP) est inexistant malgrès qu'il existe bel et bien ! Alors, où réside le problème dans mon code ?

[ProgElecT]

Si le copier/coller est l'image réel de ton code, il y a un End If de trop

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
For i = 0 To filEnvoie.ListCount - 1
 NomFichier = filEnvoie.List(i)
 '*******************************************************************************
 If Len(Dir(Mid(NomFichier, 1, InStr(1, NomFichier, ".") - 1) & ".bat")) = 0 Then
  Open Mid(NomFichier, 1, InStr(1, NomFichier, ".") - 1) & ".bat" For Output As #1
  Else
  Open Mid(NomFichier, 1, InStr(1, NomFichier, ".") - 1) & ".bat" For Append As #1
 End If
 '*******************************************************************************
 Print #1, "ftp -s:" & NomFichier & vbCrLf
 Close #1
 '**************************** UN IF THEN INUTIlISé ??***************************
 If Shell("cmd /c " & Mid(NomFichier, 1, InStr(1, NomFichier, ".") - 1) & ".bat" & " >> " & Mid(NomFichier, 1, InStr(1, NomFichier, ".") - 1) & "_log.log", vbHide) Then
 End If
 '*******************************************************************************
 Traitlog (Mid(NomFichier, 1, InStr(1, NomFichier, ".") - 1) & "_log.log")
 
 '************************** ICI PAS DES THEN ?**********************************
 End If
 '*******************************************************************************
Next

Ce qui m'etonne, c'est le message d'erreur qui indique que le fichier .log (le fichier de redirection de la commande FTP) est inexistant.
Moi il m'indique Erreur de compilation, End If sens block If