Discussion :

[bubu92]

Bonjour a tous,
j'ai des soucis avec une appli qui entre autre, charge une bitmap
au démarrage dans une PictureBox. Pour tenter d'isoler le probleme,
g fait un .Exe simple.
Comme dans l'original, je démarre sur une fonction "Main". Et la, dés
qu'il s'agit d'utiliser un chemin c'est la "cata" !.
J'ai mis l'exe dans "C:\" ,
j'ai fait un raccourci dans "SendTo", pour pouvoir charger le fichier a
traiter avec un click droit ("envoyer vers") ,

Le test se resume a placer un fichier "texture.bmp" n'importe ou, et de
l'envoyer dans l'exe (avec "SendTo").

Code :

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

1
2
3
4
5
6
7
 
Dim PathBitmap$
Dim test
 
PathBitmap$ = Left(Command$, Len(Command$) - 12)
 
test = Dir(PathBitmap$ & "texture.bmp")

La seul chose que j'ai pu constater pour l'instant, c'est que ça fontionne
si le nom du repertoire ne contient pas d'espaces !
Avec un nom de repertoire comme "a", ça marche, mais "a a" ne fonctionne
plus !
Si qq'un a une idée...

l'erreur c'est :
Error 52, "bad file name or number"
mais g une autre erreur quand il s'agit de changer une bitmap dans une PictureBox.

[OhMonBato]

Pourquoi ne pas parler directement de l'erreur qui te préocupe plutot que de faire ce test ?
Je comprends pas trop le "-12" dans ton code, ca correspond à quoi ?
Pour savoir ce que valent les variables, tu peux faire un MsgBox mais à mon avis PathBitmap$ doit avoir une drole de valeur.

[bubu92]

J'ai fait plus simple, avec une MsgBox avant pour etre sur qu'il n'y a pas de
probleme dans le chemin.

Code :

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

1
2
3
4
5
6
 
Dim test
 
MsgBox Command$
 
test = Dir(Command$)

C'est pareil !
trop fort
Dites moi qu'je suis nul

[ced600]

Que t'affiche MsgBox Command$ ?
Command$ est ce une variable d'environnement ? ou autre chose ?

[OhMonBato]

Donne nous les valeurs de Command$ qui génèrent l'erreur stp.

[bubu92]

Command$ renvoi ce qui est passé en ligne de commande quand on
appelle le programme. La, en l'occurence, il s'agit du chemin complet
du fichier. Par exemple "c:\test\texture.bmp"

[bubu92]

J'ai du nouveau.
J'ai ajouté une PictureBox. Et a la place de l'ancien code, j'ai mis ça :

Code :

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

1
2
3
4
5
6
7
 
Dim test
 
MsgBox Command$
test = Command$
 
Form1.Picture1.Picture = LoadPicture(test)

Je rappelle que ceci est dans la fonction "Main" sur laquelle démarre le
programme.
Pour le test, j'ai donc crée un repertoire sur C: => "a a"
Au lancement, on a donc une MessageBox qui s'affiche avec :

"C:\a a\texture.bmp"

et ensuite : Error 75 "Path File Acces"

Si a la place de mettre :

Code :

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

1
2
 
test = Command$

je mets

Code :

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

1
2
 
test = "c:\a a\texture.bmp"

ça marche !!!

[OhMonBato]

Et si tu testes

Code :

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

 debug.print Command$ = "c:\a a\texture.bmp"

Tu as True ou False ?