definir le dossier de travail du script.Résolu

Question

Bonjour &#224; tous,

j'ai un script &#224; faire et j'aimerais pouvoir le lancer de mon PC et qu'il aille travailler sur un disque r&#233;seau du bahut.

Quelle commande utliser pour lui dire de travailler sur le disque [file://serveur1/partage \serveur1\partage] ?
Je dois ensuite r&#233;cup&#233;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&#234;me temps ?

Merci d'avance.

Ps : je travaille pour faire un .VBS sous bloc-notes ou VBS Factory.

cs_jeanmarc · Accepted Answer

Bonsoir,
Il faut utiliser la fonction "DateLastModified"
Exemple:
Dim Path
Path  = "c:\Test" 


MsgBox ShowFolderList(Path),vbmessage,"Fichiers pr&#233;sents dans le  r&#233;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&#233; car cr&#233;&#233; le " & fdate
'      fso.DeleteFile(Path & fname)
    Else 
       MsgBox "Le fichier " & Path & fname & " ne sera pas supprim&#233; car cr&#233;&#233; le " & fdate
   End If
   strListe = strListe & vbcrlf & vbcrlf & fname & " " & fdate 
Next
  ShowFolderList = strListe 
  End Function

econs · Answer

> Quelle commande utliser pour lui dire de travailler sur le disque [file://serveur1/partage \serveur1\partage] ?



Il n'y a pas de commande pour faire &#231;&#224;, c'est &#224; toi de lui dire qu'il doit aller chercher ses fichiers l&#224; bas.



Exemple, si tu travailles sur le fichier toto.txt, et bien, quand tu
l'ouvriras, il faudra appeler le fichier \serveur1\partage	oto.txt





A la rigueur, tu enregistres dans une variable de type String le nom du r&#233;pertoire par d&#233;faut.



Dim sFolderName As String



sFolderName = "\serveur1\partage"

et tu bosses sur  les fichiers nomm&#233;s

sFolderName & "toto.txt"
sFolderName & "toto1.bat"

sFolderName & "toto2.bin"

...




Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

cs_senkei · Answer

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.

econs · Answer

Utilise un objet FileListBox (dans la barre d'outils de VB6).



et voici le code qui te permet de r&#233;cup&#233;rer les noms des fichiers qui sont sur ton serveur :



File1.Path = "\serveur1\partage"

File1.Pattern = "*.*"



For l = 0 to File1.ListCount-1

MsgBox File1.Path & "" & File1.List(l)

Next l








Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

cs_senkei · Answer

je veux bien mais j'en fais quoi après ?
car tout doit être automatique...

cs_senkei · Answer

merci de votre aide sur le sujet.

++

Definir le dossier de travail du script.

6 réponses

Discussions similaires