Quelqu un peut m'aider plez!! )
 
je voudrais faire un ti programme VB
qui coupe les fichier dans un répertoire
qui crée un répertoire avec la date d'aujourd'hui automatique
qui colle les fichiers dans ce répertoire
 
Merci de m'aider....;

sur ce forum c'est un peu dur www.vbfrance.com

il rame ce site vbfrance
 personne sait faire ca ?

Découper quel genre de fichiers et sur quels critères ?
 
Sinon, c'est pas forcément la compétence qui manque sur ce forum, mais plutot le temps de répondre à ta question qui peut s'avérer très vaste.
 
a+

je reformule
 
un ti prog
qui selectionne tout les fichiers d'un répertoire qui coupe les fichiers(comme windows edition couper)
qui cré un répertoire avec le nom = date aujourd hui
qui colle les fichiers dans ce repertoire.
 
voila merci

En "simplfié", si j'ai "percuté"
 
un programme qui déplace tous les fichiers d'un répertoire vers un nouveau répertoire dont le nom soit la date du jour.
 
Si le répertoire d'origine est pas "trop mal placé", il suffirait peut-être de le renommer (je simplifie trop ! )..

héhé carbon sauf qu'en faite apres je le rajoute a une macro access faut que ca soit automatique chaque jour
bien esseyé

1/ Pour lister les fichiers d'un répertoire, faire une boucle avec Dir
 
exemple:
on inititalise la fonction Dir par  
sFichier = Dir(sRep & "\*.*" )
puis on boucle en lançant à chaque itération la fonction Dir sans paramètre (elle renvoie alors le fichier suivant de sa liste initialisée auparavant)
 
2/ Pour créer un répertoire avec date
MkDir "c:\" & format$(Now(),"dd-mm-yyyy" )
 
3/ Pour déplacer un fichier, il faut le copier et le supprimer de son emplacement d'origine !
càd:
FileCopy ficsource, ficdestination
Kill ficsource
 
a+

thx merci Je vais esseyé mais je sens que je vais m'embrouille merci beaucoup )

je vais esseyé d'etre clair pour sylderon merci tu m'aide beaucoups je te demande une derniere chose
 
sfichier = dir(sRep & "\*.*" )
Ca selectionne tout les fichiers de sRep et ca met dans variable Sfichier ?
que j'initialise genre Srep="d:\toto"
 
Apres le mkdir marche tres bien
 
Pour le copy
FileCopy ficsource, ficdestination
Il faut que ficsource prenne tout les fichier de d:\toto
donc je mets ficsource=sfichier ?
Pour la destination il faut que ficdestination = "d:\" & Format$(Now(), "dd-mm-yyyy" )
je vais comment ?
Désolé de te prendre du temps ...
Merci

snif

Désolé de ne ps avoir répondu + tôt, mais je suis allé déjeuner (me sens mieux d'ailleurs )
 
Alors, reprenons,
sfichier = dir(sRep & "\*.*" )  
Ca met le premier fichier de sRep dans sFichier
Dans ta boucle tu fais sfichier = dir() et à chaque passage sur cette ligne sfichier contient un nouveau nom de fichier du répertoire sRep.
A noter que sfichier ne contient pas le chemin d'accès. Tu auras sfichier = "bidule.xls" mais pas sfichier = "c:\temp\bidule.xls"
C'est important pour la copie de fichier "FileCopy".
 
Donc, pour FileCopy, ficsource et ficdestination sont des paramètres contenant le chemin d'accès et le nom du fichier:
FileCopy "c:\temp\bidule.xls", "d:\30-01-2002\bidule.xls"
càd FileCopy sRep & "\" & sfichier, "d:\" & Format$(Now(), "dd-mm-yyyy" ) & "\" & sfichier
 
Ton FileCopy doit, bien sûr, être inclus dans ta boucle pour être exécuté à chaque lecture Dir() (donc pour chaque fichier)
 
 
J'espère ne rien avoir oublié
 
a+

Franchement bien joué
Merci grand merci ca marche j'arrive a copié un fichier dans le repertoire avec la date et de supprimé la source
 
now je cherche comment faire ma boucle genre un tant que il y a fichier le repertoire fait la fonction dir()
 
Merci tu m'as deja trop aidé !!!!

Dir renvoie une chaine vide ("" ou vbNullString) quand il ne trouve plus de fichier.
 
Content de t'avoir aidé
 
a+

mmmmm, comment je ferais ca en ligne de commande.
 
 
Je sais, je renome le répertoire avec le bon nom et j'en cree un nouveau vide a la place.

Hum... et si les fichier sont copiés sur un autre disque dur ?
Et s'il ne voulait plus copier tous les fichiers, mais seulement certains, suivant un filtre ?
 
Sinon ok tu as bien sûr raison sur l'aspect technique pur.

[edtdd]--Message édité par sylderon--[/edtdd]