Création répertoire + rangement fichiers auto
Résolu/Fermé
Fxbrg
Messages postés
710
Date d'inscription
samedi 17 mars 2007
Statut
Membre
Dernière intervention
16 novembre 2013
-
13 oct. 2007 à 10:37
Fxbrg Messages postés 710 Date d'inscription samedi 17 mars 2007 Statut Membre Dernière intervention 16 novembre 2013 - 26 mars 2008 à 00:03
Fxbrg Messages postés 710 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
- Creation compte gmail - Guide
- Création compte google - Guide
- Media creation tool - Télécharger - Systèmes d'exploitation
- Wetransfer gratuit fichiers lourd - Guide
- Création organigramme - Guide
4 réponses
Fxbrg
Messages postés
710
Date d'inscription
samedi 17 mars 2007
Statut
Membre
Dernière intervention
16 novembre 2013
199
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
710
Date d'inscription
samedi 17 mars 2007
Statut
Membre
Dernière intervention
16 novembre 2013
199
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
710
Date d'inscription
samedi 17 mars 2007
Statut
Membre
Dernière intervention
16 novembre 2013
199
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 :-)