cs_senkei
Messages postés7Date d'inscriptionmercredi 16 novembre 2005StatutMembreDernière intervention16 novembre 2005
-
16 nov. 2005 à 08:19
cs_senkei
Messages postés7Date d'inscriptionmercredi 16 novembre 2005StatutMembreDernière intervention16 novembre 2005
-
17 nov. 2005 à 07:53
Bonjour à tous,
j'ai un script à faire et j'aimerais pouvoir le lancer de mon PC et qu'il aille travailler sur un disque réseau du bahut.
Quelle commande utliser pour lui dire de travailler sur le disque [file://serveur1/partage \\serveur1\partage] ?
Je dois ensuite récupérer des infos sur le fichiers de ce dossier.
Je sais que la commande est FileDateName mais comment l'utiliser pour l'afficher pour plusieurs fichiers en même temps ?
Merci d'avance.
Ps : je travaille pour faire un .VBS sous bloc-notes ou VBS Factory.
cs_jeanmarc
Messages postés34Date d'inscriptionmardi 18 juin 2002StatutMembreDernière intervention22 novembre 2005 16 nov. 2005 à 21:02
Bonsoir,
Il faut utiliser la fonction "DateLastModified"
Exemple:
Dim Path
Path = "c:\Test"
MsgBox ShowFolderList(Path),vbmessage,"Fichiers présents dans le répertoire"
Function ShowFolderList(strPath)
Dim fso, Dossiers, fic, fichiers, strListe, f, fdate, fname, dtDiffFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossiers = fso.GetFolder(path)
Set fic = Dossiers.Files
For Each fichiers in fic
Set f = fso.GetFile(fichiers)
fdate = f.DateLastModified
fname = f.Name
dtDiffFile = DateDiff("d", Now, fdate)
If dtDiffFile <= -2 Then
MsgBox "Le fichier " & Path & fname & " sera supprimé car créé le " & fdate
' fso.DeleteFile(Path & fname)
Else
MsgBox "Le fichier " & Path & fname & " ne sera pas supprimé car créé le " & fdate
End If
strListe = strListe & vbcrlf & vbcrlf & fname & " " & fdate
Next
ShowFolderList = strListe
End Function
cs_senkei
Messages postés7Date d'inscriptionmercredi 16 novembre 2005StatutMembreDernière intervention16 novembre 2005 16 nov. 2005 à 08:59
ben en fait je ne connais pas les fichiers du disque réseau avant de lancer le script. Si cela peut t'inspirer voici l'énnoncé de l'exercice :
Un scanner est placé en réseau dans une société. Les documents scannés se placent dans un répertoire partagé \\serveur1\partage. Pour éviter de surgarger le serveur, on vous demande un script supprimant tous les fichiers dont la date de dernière modification remonte à deux jours.
Je pensais, en gros je n'ai encore qu'un brouillon :
Recuperez la date du jour dans un variable.
la comparer au FileDateName des fichiers avec la commande DateDiff (date du jour - date du fichier)
si le datediff = -2 suprimer le fichier
le script est lancé tout les matins est supprime tous les fichiers scannés il y'a deux jours.
Le probleme est que je ne connais pas le nom des fichiers qui seront à supprimer au lancement du script.