Bonjour,

J'ai le code suivant en vbs qui permet d'effacer des fichiers txt plus ancien que 24h. A chaque fois j'ai le message suivant

Line:16
Char:5
Error:fichier introuvable

Ce que je ne comprend pas c'est qu'il y a des fichiers.
J'ai essaye avec un Msgbox mais il ne prend pas le .txt. Il ne prend que le nom du fichier.
c pour ca qu'il me met fichier introuvable. Que faut-il ajouter pour qu'il me prend en compte ce .txt

Pouvez vous me dire d'ou vient l'erreur.

Merci par avance

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
Dim courant, temp_attente 
courant = "C:\envoi\attente_echantillon\" 
ShowFolderList(courant) 
Function ShowFolderList(strPath) 
 
Const ForReading = 1, ForWriting = 2 
Dim objFso, colFile, objTextStream, objTextFile 
Dim strLine, nom_fichier, extension, nom_ss_date, date_f, loc_date 
Dim fichier_gestion, num_fich, i, loc_gestion, loc_gestion2, dossier_dest 
 
Set objFso = CreateObject("Scripting.FileSystemObject") 
For Each colFile in objFso.GetFolder(strPath).Files 
If LCase(objFso.GetExtensionName(colFile.Name)) = "txt" 
Then 
 
num_fich = 0 
nom_fichier = Ucase(objFso.GetBaseName(colFile.Name)) 
 
date_f = Right(nom_fichier, 14) 
loc_date = InStr(nom_fichier, date_f) 
nom_ss_date = Left(nom_fichier, loc_date - 1) 
 
loc_gestion = InStr(LCase(nom_fichier), "gestion") 
extension = "." & objFso.GetExtensionName(colFile.Name) 
 
fichier_gestion = nom_ss_date & "gestion" & extension 
If loc_gestion = 0 Then 
 
If Len(Int(date_f)) = 14 Then 
Dim annee, mois, jour, heure, min, sec 
date_1 = Split(Date, "/") 
jour = date_1(0) 
 
mois = date_1(1) 
annee = date_1(2) 
 
date_2 = Split(time, ":") 
heure = date_2(0) 
min = date_2(1) 
sec = date_2(2) 
 
date_3 = Int(annee & mois & jour & heure & min & sec) 
 
'Recuperation heure + date du fichier 
locheure = Mid(date_f, 9, 2) 
locdate = Mid(date_f, 7, 2) 
'Recuperation heure + date du PC 
locheure3 = Mid(date_3, 9,2) 
locdate3 = Mid(date_3, 7,2) 
 
'Si la date du fichier n'est pas egale a 30 ou 31 et la date du PC n'est pas egale à 1 
If (locdate <> 30 or 31) and locdate3 <> 1 Then 
 
If Int(date_f) < date_3 - 1000000 Then 
If InStr(UCase(nom_fichier), "_MP_") Then 
objFso.DeleteFile courant & nom_fichier & extension 
Else 
If InStr(UCase(nom_fichier),"_CE_") Then 
dossier_dest = "C:\envoi\incomplets\centrale_mesure\" 
Elseif Instr(LCase(nom_fichier),"_ce_") Then 
dossier_dest = "C:\envoi\incomplets\centrale_mesure\" 
 
Elseif InStr(UCase(nom_fichier),"_ME_") Then 
dossier_dest = "C:\envoi\incomplets\metrologie\" 
Elseif InStr(LCase(nom_fichier),"_me_") Then 
dossier_dest = "C:\envoi\incomplets\metrologie\" 
 
Elseif Instr(UCase(nom_fichier),"_3D_") Then 
dossier_dest = "C:\envoi\incomplets\3D\" 
Elseif Instr(LCase(nom_fichier),"_3d_") Then 
dossier_dest = "C:\envoi\incomplets\3D\" 
ElseIf Instr(LCase(nom_fichier),"pivot_ms_") Then 
dossier_dest = "C:\envoi\incomplets\Autres\" 
Else 
dossier_dest = "C:\envoi\incomplets\Autres\" 
End If 
objFso.MoveFile courant & 
nom_fichier & extension, dossier_dest 
End If 
If objFso.FileExists 
(courant & nom_ss_date & "gestion" & extension) Then 
objFso.DeleteFile 
courant & nom_ss_date & "gestion" & extension 
End If 
End If 
Else 
'Call MsgBox("Date 
incorrecte sur le fichier " & nom_fichier) 
End If 
 
End If 
End If 
End If 
Next 
End Function