Accès Premium
GNT sans publicité, site mobile, fonctionnalitées exclusives...
Rejoignez-nous !
Forums Développement Visual Basic

Dossier par défaut d'une boite de dialogue

Le
Daniel AUBRY
Bonjour à tous,

lors du paramétrage de la boite de dialogue permettant l'ouverture d'un
fichier
je souhaiterais définir le dossier par défaut mais cela ne marche pas :

NomFichierImport = ""
Depart.Dialogue.CancelError = False
Depart.Dialogue.DialogTitle = "Sélection d'un fichier WinSemiLE"
Depart.Dialogue.InitDir = "Mes Documents"
Depart.Dialogue.Filter = "Fichiers Wse (*.wse)|*.wse"
Depart.Dialogue.ShowOpen
NomFichierImport = Depart.Dialogue.FileName

If NomFichierImport = "" Then
Exit Sub
End If

Si quelqu'un à une p'tite idée.

D'avance, merci

Dany
Lire les 4 réponses

Questions / Réponses high-tech
Poser une question
Vidéos High-Tech et Jeu Vidéo
Plus de vidéos
Téléchargements
Plus de téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jean-marc
Le #15342371
"Daniel AUBRY" 450ef7ca$0$3223$
Bonjour à tous,

lors du paramétrage de la boite de dialogue permettant l'ouverture d'un
fichier
je souhaiterais définir le dossier par défaut mais cela ne marche pas :

NomFichierImport = ""
Depart.Dialogue.CancelError = False
Depart.Dialogue.DialogTitle = "Sélection d'un fichier WinSemiLE"
Depart.Dialogue.InitDir = "Mes Documents"
Depart.Dialogue.Filter = "Fichiers Wse (*.wse)|*.wse"
Depart.Dialogue.ShowOpen
NomFichierImport = Depart.Dialogue.FileName

If NomFichierImport = "" Then
Exit Sub
End If

Si quelqu'un à une p'tite idée.



Hello Daniel,

c'est parce que dans InitDir, il attend un "vrai" chemin, comme ça:

"C:Documents and SettingsJean-marcMes documents"

Il ya une API (je ne sais plus laquelle) qui permet de récupérer
le nom de ce répertoire automatiquement. Un coup de Google
devrait te ramener ça en 10 secondes!

Bonne suite :-)

--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ;
Répondre en citant
Daniel AUBRY
Le #15342361
Merci, effectivement quand je met un "vrai" chemin, ça marche.

je me met en quête d'une routine de récup des dossiers Windows.

Encore merci.

Dany

"Jean-marc" de news: 450efb53$0$3062$
"Daniel AUBRY" 450ef7ca$0$3223$
Bonjour à tous,

lors du paramétrage de la boite de dialogue permettant l'ouverture d'un
fichier
je souhaiterais définir le dossier par défaut mais cela ne marche pas :

NomFichierImport = ""
Depart.Dialogue.CancelError = False
Depart.Dialogue.DialogTitle = "Sélection d'un fichier WinSemiLE"
Depart.Dialogue.InitDir = "Mes Documents"
Depart.Dialogue.Filter = "Fichiers Wse (*.wse)|*.wse"
Depart.Dialogue.ShowOpen
NomFichierImport = Depart.Dialogue.FileName

If NomFichierImport = "" Then
Exit Sub
End If

Si quelqu'un à une p'tite idée.



Hello Daniel,

c'est parce que dans InitDir, il attend un "vrai" chemin, comme ça:

"C:Documents and SettingsJean-marcMes documents"

Il ya une API (je ne sais plus laquelle) qui permet de récupérer
le nom de ce répertoire automatiquement. Un coup de Google
devrait te ramener ça en 10 secondes!

Bonne suite :-)

--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ;



Répondre en citant
Gloops
Le #15342351
Bonjour,

Pour fignoler les boîtes de dialogue système, on peut s'intéresser au
site de Randy Birch, http://vbnet.mvps.org/

Cliquer sur TOC/How to, et chercher "GetOpenFileName", qu'on trouve
notamment dans la catégorie Common Dialogs.
___________________________________________
Le 18/09/2006 19:16, Daniel AUBRY a écrit :
Bonjour à tous,

lors du paramétrage de la boite de dialogue permettant l'ouverture d'un
fichier
je souhaiterais définir le dossier par défaut mais cela ne marche pas :

NomFichierImport = ""
Depart.Dialogue.CancelError = False
Depart.Dialogue.DialogTitle = "Sélection d'un fichier WinSemiLE"
Depart.Dialogue.InitDir = "Mes Documents"
Depart.Dialogue.Filter = "Fichiers Wse (*.wse)|*.wse"
Depart.Dialogue.ShowOpen
NomFichierImport = Depart.Dialogue.FileName

If NomFichierImport = "" Then
Exit Sub
End If

Si quelqu'un à une p'tite idée.

D'avance, merci

Dany




Répondre en citant
Gloops
Le #15342341
Le 18/09/2006 22:02, Jean-marc a écrit :
Il ya une API (je ne sais plus laquelle) qui permet de récupérer
le nom de ce répertoire automatiquement. Un coup de Google
devrait te ramener ça en 10 secondes!



Peut-être bien SHGetSpecialFolderLocation ?
http://www.allapi.net/apilist/SHGet...tion.shtml

Voir les liens en bas de page pour des exemples.
Répondre en citant
Publicité
Suivre les réponses
Poster une réponse
Anonyme