[Résolu] Problème avec CopyFile()

[omega]

Bonsoir tout le monde

Je n'arrive pas à comprendre pourquoi la copie ne se fait pas??

Code : Tout sélectionner

dateref$="10/10/2020"

Dir$=GetCurrentDirectory()+"FichiersVO"
If CreateDirectory(dir$)
   Debug "dossier créé"
EndIf

dest$=dir$+"\"+dateref$+"\fvo.txt"
Debug dest$
CopyFile("fvo.txt",dest$)

Merci

[SPH]

Remplace par :

Code : Tout sélectionner

dateref$="10-10-2020"

Code : Tout sélectionner

CopyFile("fvo.txt",dest$)

CopyFile("fvo.txt" : l'ordi ne sait peut etre pas où se trouve le fichier...

[SPH]

Code : Tout sélectionner

Dir$=GetCurrentDirectory()+"FichiersVO\"
Debug dir$

If CreateDirectory(dir$)
   Debug "dossier créé"
EndIf

Oui tiens, en bidouillant, ca ne marche pas (impossible de creer un repertoire)

[case]

Dir$=GetCurrentDirectory()+"FichiersVO\"
Debug dir$

If CreateDirectory(dir$)
Debug "dossier créé"
EndIf

attention si tu compile ça directement sans sauver le code auparavant GetCurrentDirectory() renvoi le dossier de pure basic et ton programme n'a pas les permissions pour créer un dossier dans program files par exemple.

[case]

ton problème viens de plusieurs choses.

tu crée un dossier

Code : Tout sélectionner

Dir$=GetCurrentDirectory()+"FichiersVO"
If CreateDirectory(dir$)
   Debug "dossier créé"
EndIf

jusque la tout vas bien si le dit dossier n'est pas dans program files
ensuite tu tente d'y copier un fichier fvo.txt dans un sous dossier qui n'existe pas ( dir$\dateref$\fvo.txt

Code : Tout sélectionner

dest$=dir$+"\"+dateref$+"\fvo.txt"
Debug dest$
CopyFile("fvo.txt",dest$)

enfin il n'est pas possible d'utiliser des slash ou antislash dans un nom de dossier/de fichier
la solution serait quelque chose comme cela

Code : Tout sélectionner

dateref$="10-10-2020"
Dir$=GetCurrentDirectory()+"FichiersVO"
dest$=dir$+"\"+dateref$
If FileSize(Dir$)=-1 ; n'existe pas
   If CreateDirectory(dir$)
    Debug "dossier "+Dir$+" créé"
  EndIf
EndIf
If FileSize(Dir$+"\"+dateref$)=-1 ; sous dossier n'existe pas
  If CreateDirectory(Dir$+"\"+dateref$)
    Debug "dossier "+Dir$+"\"+dateref$+" créé"
  EndIf
EndIf
CopyFile("fvo.txt",dest$+"\fvo.txt")

[omega]

Bonsoir et merci pour tout

Oui, effectivement les tirets doivent être évités dans la date et le sous dossier final n'existe pas !

Merci à vous tous

Bonne continuation