Création répertoire + rangement fichiers auto
Résolu
Fxbrg
Messages postés
710
Date d'inscription
Statut
Membre
Dernière intervention
-
Fxbrg Messages postés 710 Date d'inscription Statut Membre Dernière intervention -
Fxbrg Messages postés 710 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Un petit truc sans doute pour les rois de la prog... :-)
Je voudrais, sur un serveur W2003 Server, par un petit fichier batch à mettre dans le planificateur de taches, faire les deux taches suivantes :
- créer un répertoire nommé par la date à l'envers (par exemple aujourd'hui 20071013)
- déplacer dedans tous les fichiers ayant cette même date de création.
Le problème est simple : toutes les commandes sont scannées en automatique vers un répertoire particulier du serveur. En fin de journée, une secrétaire crée donc le répertoire mentionné ci-dessus puis déplace dedans tous les fichiers scannés de la journée. Comme elle n'est pas la dernière à partir, certains scans restent là, sont rangés le lendemain, bref pas très propre. J'ai trois ans d'archive classés par date grâce à la date inversée, je veux garder le même principe...
Je pense que je saurais créer un répertoire (md?), mais comment le nommer en date inversée, je ne sais pas, je ne sais pas non plus comment identifier et déplacer les fichiers par leur date de création à l'intérieur du répertoire où arrivent ces scans...
Je veux pouvoir mettre ce petit programme en batch que je pourrais ajuster dans le planificateur, parce que je sens qu'on n'est pas très sur de l'heure optimale pour le faire...
D'avance donc un grand merci.
JF
Un petit truc sans doute pour les rois de la prog... :-)
Je voudrais, sur un serveur W2003 Server, par un petit fichier batch à mettre dans le planificateur de taches, faire les deux taches suivantes :
- créer un répertoire nommé par la date à l'envers (par exemple aujourd'hui 20071013)
- déplacer dedans tous les fichiers ayant cette même date de création.
Le problème est simple : toutes les commandes sont scannées en automatique vers un répertoire particulier du serveur. En fin de journée, une secrétaire crée donc le répertoire mentionné ci-dessus puis déplace dedans tous les fichiers scannés de la journée. Comme elle n'est pas la dernière à partir, certains scans restent là, sont rangés le lendemain, bref pas très propre. J'ai trois ans d'archive classés par date grâce à la date inversée, je veux garder le même principe...
Je pense que je saurais créer un répertoire (md?), mais comment le nommer en date inversée, je ne sais pas, je ne sais pas non plus comment identifier et déplacer les fichiers par leur date de création à l'intérieur du répertoire où arrivent ces scans...
Je veux pouvoir mettre ce petit programme en batch que je pourrais ajuster dans le planificateur, parce que je sens qu'on n'est pas très sur de l'heure optimale pour le faire...
D'avance donc un grand merci.
JF
A voir également:
- Création répertoire + rangement fichiers auto
- Creation compte gmail - Guide
- Création site web - Guide
- Media creation tool - Télécharger - Systèmes d'exploitation
- Création compte google - Guide
- Renommer des fichiers en masse - Guide
4 réponses
Salut Claudemc,
Est-ce à dire que tu veux que je te file mon script? Si oui, pas de pb, suffit de le dire :-)
Cordialement,
JFB
Est-ce à dire que tu veux que je te file mon script? Si oui, pas de pb, suffit de le dire :-)
Cordialement,
JFB
Voila la "bête" lol
Dim oFSO,oDrv,ofld, oFi
Dim strep
strep="d:\scanner"
Set oFSO = CreateObject("Scripting.FileSystemObject")
if ofso.folderexists(strep) then
set ofld=ofso.getfolder(strep)
for each ofi in ofso.getfolder(strep).files
finame=ofi.name
stdate=ofi.datelastmodified
stday=left(stdate,2)
stmon=right(left(stdate,5),2)
styear=right(left(stdate,10),4)
stname=styear & stmon & stday
if ofso.folderexists(strep & "\" & stname) then
ofso.movefile strep & "\" & finame, strep & "\" & stname & "\" & finame
else
ofld.subfolders.add(stname)
ofso.movefile strep & "\" & finame, strep & "\" & stname & "\" & finame
end if
next
end if
A enregistrer en rangescans.vbs par exemple, adapter le chemin du répertoire où arrivent les scans...
Bon courage,
Dim oFSO,oDrv,ofld, oFi
Dim strep
strep="d:\scanner"
Set oFSO = CreateObject("Scripting.FileSystemObject")
if ofso.folderexists(strep) then
set ofld=ofso.getfolder(strep)
for each ofi in ofso.getfolder(strep).files
finame=ofi.name
stdate=ofi.datelastmodified
stday=left(stdate,2)
stmon=right(left(stdate,5),2)
styear=right(left(stdate,10),4)
stname=styear & stmon & stday
if ofso.folderexists(strep & "\" & stname) then
ofso.movefile strep & "\" & finame, strep & "\" & stname & "\" & finame
else
ofld.subfolders.add(stname)
ofso.movefile strep & "\" & finame, strep & "\" & stname & "\" & finame
end if
next
end if
A enregistrer en rangescans.vbs par exemple, adapter le chemin du répertoire où arrivent les scans...
Bon courage,