Discussion :

[pirouge]

Ouvrir un Répertoire pour déposer un Film ,en VB6
Vu que je ne suis pas arrivé à ouvrir le répertoire , j’ai appliques le système ‘’Filecopy’’ que voici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
            Via = App.Path & "\"
            Dim SourceFile, DestinationFile
            SourceFile = "C:\Program Files\Films\" & NomeFilm & ".mp4"
            DestinationFile = Via & "CopiaFilms"
            FileCopy SourceFile, DestinationFile

Il me donne : Erreur dans le chemin d’accès
Mon repertoire s’appele ‘’CopiaFilms ‘’
Je pense que j’ai une erreur dans ‘’DestinatioFile ‘’ mais je ne vois pas comment le résoudre, merci pour votre aide.

[DAUDET78]

Avec un point d'arrêt sur la ligne #6 , tu peux voir le contenu de SourceFile et DestinationFile .
Ca vaut quoi ? c'est correct ?

[pirouge]

Avec un point d'arrêt sur la ligne #6 , tu peux voir le contenu de SourceFile et DestinationFile .
Ca vaut quoi ? c'est correct ?

C'est correct ,me ils me donne : Erreur dans le chemin d’accès?

[DAUDET78]

C'est correct ,me ils me donne : Erreur dans le chemin d’accès?

Tu n'as pas encore l'erreur si tu mets un point d'arrêt sur la ligne 6

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FileCopy SourceFile, DestinationFile

Tu visualises, en passant la souris dessus, le contenu des variables SourceFile et DestinationFile.

• SourceFile c'est bien un chemin et un nom de fichier correct ?
• DestinationFile c'est bien un chemin et un nom de fichier correct ?

Si, dans DestinationFile , tu utilises un répertoire qui n'existe pas, je pense que c'est la cause de l'erreur (faut le créer avec MkDir )

[pirouge]

Tu n'as pas encore l'erreur si tu mets un point d'arrêt sur la ligne 6

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FileCopy SourceFile, DestinationFile

Tu visualises, en passant la souris dessus, le contenu des variables SourceFile et DestinationFile.

• SourceFile c'est bien un chemin et un nom de fichier correct ?
• DestinationFile c'est bien un chemin et un nom de fichier correct ?

Si, dans DestinationFile , tu utilises un répertoire qui n'existe pas, je pense que c'est la cause de l'erreur (faut le créer avec MkDir )

Il fallait ajouter le nom du film dans la ligne 5
Comme cecii :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
            Via = App.Path & "\"
            Dim SourceFile, DestinationFile
            SourceFile = "C:\Program Files\Films\" & NomeFilm & ".mp4"
            DestinationFile = Via & "CopiaFilms"& NomeFilm & ".mp4"
            FileCopy SourceFile, DestinationFile

Maintenant ça fonctionne