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
Est ce que vous avez d'autre idée qui me permettra de diminuer le temp de renommage à moins de 1 seconde .
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
merci
Fanah
Partager