Copier des fichiers

[langa68]

salut,

J'ai copié l'exemple CopyFile() et l'ai appliqué a mes besoins.
Tout fonctionne parfaitement seulement lorsque je remplace le nom du fichier par une étoile (*) rien ne fonctionne plus.
Pouvez vous m'aider??

Code : Tout sélectionner

  Dossiersource$="E:\Download\"
  Dossiercible$="E:\Download\01test\"
  Fichier$="*.txt"
  
  
  
  If CopyFile(Dossiersource$+Fichier$, Dossiercible$+Fichier$)
    Debug "Fichier déplacé et renommé avec succès."     
  Else 
    Debug "Echec, le fichier ne peut pas être renommé et déplacé." ; Echec si par exemple le fichier (ou le disque) n'existe pas.
  EndIf
  

Merci

[case]

on ne peux pas nommer un fichier '*'

la commande copie un fichier dont le nom et le chemin est connu.
si le but est de faire comme avant sous dos un espèce de copy *.* il vas falloir programmer toi même la fonction.

regarde du coté de ExamineDirectory()

[langa68]

Merci pour ta réponse. Je vais essayer avec ExamineDirectory().

[Mindphazer]

Ou sinon tu fais un RunProgram d'un xcopy...

[langa68]

Ou sinon tu fais un RunProgram d'un xcopy...

Alors la????

[Backup]

Ou sinon tu fais un RunProgram d'un xcopy...

Alors la????

ben oui comme ça :

Code : Tout sélectionner

; ******************procedure de copy *************************
procedure copy (source.s,destination.s)
	; By Dobro
	result$="?/c  xcopy "+source.s+" "+destination.s
	if prg=RunProgram("cmd.exe",  result$ , "", #PB_Program_Wait) 
		CloseProgram(prg)
	endif
EndProcedure

; ************************************************************

source.s=" E:\Dobro\Mes_Photos\*.jpg "
destination.s="E:\Dobro\Mes_Photos\img\"
copy (source.s,destination.s)

je copie tout les jpg se trouvant dans : E:\Dobro\Mes_Photos\*.jpg
ici : E:\Dobro\Mes_Photos\img\

[langa68]

Merci Dobro