Page 1 sur 1
[Résolu] Problème avec CopyFile()
Publié : dim. 11/oct./2020 22:23
par 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
Re: Problème avec CopyFile()
Publié : lun. 12/oct./2020 5:08
par SPH
Remplace par :
CopyFile("fvo.txt" : l'ordi ne sait peut etre pas où se trouve le fichier...
Re: Problème avec CopyFile()
Publié : lun. 12/oct./2020 13:16
par 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)
Re: Problème avec CopyFile()
Publié : lun. 12/oct./2020 21:02
par 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.
Re: Problème avec CopyFile()
Publié : lun. 12/oct./2020 21:17
par 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")
Re: Problème avec CopyFile()
Publié : lun. 12/oct./2020 23:52
par 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