Création répertoire + rangement fichiers auto
Résolu/Fermé
Fxbrg
Messages postés
711
Date d'inscription
samedi 17 mars 2007
Statut
Membre
Dernière intervention
16 novembre 2013
-
13 oct. 2007 à 10:37
Fxbrg Messages postés 711 Date d'inscription samedi 17 mars 2007 Statut Membre Dernière intervention 16 novembre 2013 - 26 mars 2008 à 00:03
Fxbrg Messages postés 711 Date d'inscription samedi 17 mars 2007 Statut Membre Dernière intervention 16 novembre 2013 - 26 mars 2008 à 00:03
A voir également:
- Création répertoire + rangement fichiers auto
- Wetransfer gratuit fichiers lourd - Guide
- Création organigramme - Guide
- Creation compte gmail - Guide
- Media creation tool - Télécharger - Systèmes d'exploitation
- Création compte google - Guide
4 réponses
Fxbrg
Messages postés
711
Date d'inscription
samedi 17 mars 2007
Statut
Membre
Dernière intervention
16 novembre 2013
198
20 déc. 2007 à 15:48
20 déc. 2007 à 15:48
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
salut Fxbrg
je suis aussi interesser par ton script
Merci
L1515
je suis aussi interesser par ton script
Merci
L1515
Fxbrg
Messages postés
711
Date d'inscription
samedi 17 mars 2007
Statut
Membre
Dernière intervention
16 novembre 2013
198
26 mars 2008 à 00:03
26 mars 2008 à 00:03
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,
Fxbrg
Messages postés
711
Date d'inscription
samedi 17 mars 2007
Statut
Membre
Dernière intervention
16 novembre 2013
198
20 oct. 2007 à 00:10
20 oct. 2007 à 00:10
Ca y est, j'ai fait mon premier script vbs, tout seul comme un grand, et ça marche :-)