Discussion :

[fanah]

Bonjour,

J'ai fait un programme qui permet de renommer des fichiers *.doc en *.autre sur ftp, j'utilise pour cela le composant inet de MSINET.ocx, cependant le temps de renommage d'un fichier dure 10 seconde ce qui de trop parce que je doit renommer + de 5000 fichiers par jour .

Ma liste de fichier à renommer est dans une collection et j'utilise le fonction suivante pour le renommage, tout cela ce passe sur le serveur ftp.

Code :

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

1
2
3
4
5
6
7
8
9
10
Function RenameFile(FileName As String, NewFilename As String)
 
Do While Inet.StillExecuting
DoEvents
Loop
 
f = True
Exec "RENAME " + FileName + " " + NewFilename
 
End Function

la fonction exec est la suivante

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
22
23
Function Exec(Oper As String)
On Error GoTo handler
 
If Inet1.StillExecuting Then Exit Function
 
Inet1.Execute , Oper
 
Do While Inet1.StillExecuting ' This will wait until the inet execution completes
DoEvents
Loop
 
Pause 1000
 
If f = True Then
 f = False
 DIRE
End If
 
Exit Function
handler:
MsgBox Err.Description
 
End Function

Est ce que vous avez d'autre idée qui me permettra de diminuer le temp de renommage à moins de 1 seconde .

merci
Fanah

[ProgElecT]

Code :

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

Pause 1000

c'est quoi, à quel langage cela correspond ?
Je suppose que c'est 1 Sc de perdue, surtout à l'endroit ou tu l'utilises puisque tu as géré avec ta boucle Do While Inet1.StillExecuting.