VB

Question

Bonjour,

Je suis un débutant en VB, je souhaiterai faire une boucle afin de copier un par un des fichiers d'un répertoire, après les avoir soumis des tests, en utilisant les fonctions Fso.
J'ai essayé avec CopyFile(source,destination[,overwrite]), le problème est que je suis obligé d'indiquer le chemin entier du fichier que je veux tester et copier. Or moi je voudrai juste indiquer le chemin du repertoire et pouvoir travailler sur tous les fichiers de celui lui.
 
Merci d'avance pour votre aide

jrivet · Answer

Salut,
Et CopyFolder ne te convient pas? 

@+: Ju£i?n
Pensez: Réponse acceptée

Renfield · Answer

"je voudrai" pourquoi un tel souhait ?
il est facile de faire une concaténation du chemin avec le nom du fichier

d'autre part, FSO est inutile ici (conserves FSO pour le VBS)

Prich · Answer

salut

 avec CopyFolder,  je copie la totalité du dossier sans savoir ce qu'il contient. Justement j'aimerai copier que certains fichiers du dossier.

jrivet · Answer

Salut,
Dans ce cas tu n'a pas le choix tu vas devoir jouer avec les chemins...

@+: Ju£i?n
Pensez: Réponse acceptée

Prich · Answer

Peux-tu être plus explicite STP, dans la mesure où je ne suis pas informaticien, les idées ne fusent pas mon cerveau quand il s'agit de problème informatique.

merci

Renfield · Answer

en gros :

Dim sFolderSrc As String
Dim sFolderDst As String
Dim sFileName as String
    sFolderSrc = "C:\Source"
    sFolderDst = "C:\Destination"
    sFileName = Dir$(sFolderSrc & "*.txt"
    Do While Lenb(sFileName)
        ... test tests
        FileCopy sFolderSrc & sFileName, sFolderDst & sFileName
        sFileName = Dir$()
    Loop

Prich · Answer

J'ai testé le bout de prog mais rien ne ce passe 


merci comme même

Renfield · Answer

tu l'as adapté un minimum, j'imagine ?  (modification des chemins)

parceque sans cela, effectivement, si tu n'as pas de fichiers txt dans un C:\Source
et comme par hasard, un C:\Dest prêt a recevoir des fichiers, il ne risque pas de se passer grand chose

Prich · Answer

oui biensure je l'ai testé avec mes paramètres, mais rien ne c'est produit

Renfield · Answer

et en pas a pas, que fait le code ?

Prich · Answer

Le  prog fonctionne correctement sauf qu'il ne donne rien.......
t'aurai pas une idée avec CopyFile(source,destination[,overwrite]), où la source serai variable?
merci

Renfield · Answer

ce genre de boucles ?

For each oFile In FSO.GetFolder("C:\Source")
    ...
Next oFile

j'insiste sur le faite que FSO est a proscrire de VB. lent et déstiné au VBS uniquement.

Prich · Answer

J'ai l'erreur "run-time error '70'  permission refusée"....


merci de ton aide, je vais creusé sur le premier bout de prog que tu ma donné

Renfield · Answer

pas le droit de lire la source
ou fichier de destination existant (non ecrasable, tu dois faire un Kill de ces fichiers)

VB

14 réponses

Votre réponse

Discussions similaires