VB HELP

VB HELP - Programmation

Marsh Posté le 30-01-2002 à 09:41:04    

Quelqu un peut m'aider plez!! :o)
 
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....;

Reply

Marsh Posté le 30-01-2002 à 09:41:04   

Reply

Marsh Posté le 30-01-2002 à 09:49:17    

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

Reply

Marsh Posté le 30-01-2002 à 10:27:12    

il rame ce site vbfrance
 personne sait faire ca ?

Reply

Marsh Posté le 30-01-2002 à 10:32:15    

Citation :


qui coupe les fichier dans un répertoire  


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+

Reply

Marsh Posté le 30-01-2002 à 10:35:14    

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 :D

Reply

Marsh Posté le 30-01-2002 à 10:38:11    

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 ! :D)..

Reply

Marsh Posté le 30-01-2002 à 10:42:41    

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

Reply

Marsh Posté le 30-01-2002 à 10:56:54    

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+

Reply

Marsh Posté le 30-01-2002 à 11:06:57    

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

Reply

Marsh Posté le 30-01-2002 à 11:36:11    

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

Reply

Marsh Posté le 30-01-2002 à 11:36:11   

Reply

Marsh Posté le 30-01-2002 à 13:09:28    

snif

Reply

Marsh Posté le 30-01-2002 à 13:34:30    

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+

Reply

Marsh Posté le 30-01-2002 à 13:48:58    

Franchement bien joué :D
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é !!!!
:D

Reply

Marsh Posté le 30-01-2002 à 13:54:14    

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

Reply

Marsh Posté le 30-01-2002 à 14:06:02    

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.

Reply

Marsh Posté le 30-01-2002 à 14:14:02    

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]

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed