VB HELP

Recherche :

Dernière réponse
Sujet : VB HELP
Sylderon	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]

Dernière réponse

Sujet : VB HELP

Sylderon

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]

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

Sylderon

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

Kristoph

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.

Sylderon

Dir renvoie une chaine vide ("" ou vbNullString) quand il ne trouve plus de fichier.

Content de t'avoir aidé

a+

nicodeath

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

Sylderon

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+

nicodeath

snif

nicodeath

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

nicodeath

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

Sylderon

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+

nicodeath

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

Carbon_14

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)..

nicodeath

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

Sylderon

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+

nicodeath

il rame ce site vbfrance
personne sait faire ca ?

neokortex

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

nicodeath

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....;