Voici la fonction que j'utilise pour sélectionner un fichier par le biais
d'une boîte de dialogue...
***
Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias
"GetOpenFileNameA" (pOpenfilename As OpenFileName) As Long
Private Type OpenFileName
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
Function GetFileName(Filter As String, InitialDir As String, Title As
String) As String
Dim OpenFile As OpenFileName
Dim lReturn As Long
With OpenFile
.lStructSize = Len(OpenFile)
.lpstrFilter = Filter
.nFilterIndex = 1
.lpstrFile = String(257, 0)
.nMaxFile = Len(OpenFile.lpstrFile) - 1
.lpstrFileTitle = OpenFile.lpstrFile
.nMaxFileTitle = OpenFile.nMaxFile
.lpstrInitialDir = InitialDir
.lpstrTitle = Title
.flags = 0
End With
lReturn = GetOpenFileName(OpenFile)
If lReturn = 0 Then
GetFileName = ""
Else
GetFileName = Trim(OpenFile.lpstrFile)
End If
End Function
***
Quel paramètre faut-il modifier dans cette fonction pour pouvoir
sélectionner un chemin de répertoire et non un fichier?
Où voulez -vous connaitre cela ?? sinon dans des documents techniques Microsoft et MSDN à moins d'être devin !! ce n'est pas mon cas ;-)) Bonne journée
salutations
Gilbert
"Modeste" a écrit dans le message de news:
Bonsour® Jacques93 wrote:
http://vbnet.mvps.org/code/browse/browsefolders.htm Qui a copié ? :-D
;o))) peut-on parler de copie ??? Eternel paradoxe de la poule et de l'oeuf
à ce niveau (MVP) je pense que nos maitres sont tous destinataires en avant première des mêmes documents techniques Microsoft et MSDN notament : http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/objects/shell/browseforfolder.asp et qu'en terme d'antériorité, seule la diffusion vers les "vulgus pecum" est significative... ;o)))
Bonjour
Où voulez -vous connaitre cela ??
sinon dans des documents techniques Microsoft et MSDN
à moins d'être devin !!
ce n'est pas mon cas ;-))
Bonne journée
salutations
Gilbert
"Modeste" <nomail@nomail.net> a écrit dans le message de news:
uDzmRl5gFHA.1948@TK2MSFTNGP12.phx.gbl...
Bonsour®
Jacques93 wrote:
http://vbnet.mvps.org/code/browse/browsefolders.htm
Qui a copié ? :-D
;o)))
peut-on parler de copie ???
Eternel paradoxe de la poule et de l'oeuf
à ce niveau (MVP) je pense que nos maitres sont tous destinataires en
avant
première des mêmes documents techniques Microsoft et MSDN
notament :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/objects/shell/browseforfolder.asp
et qu'en terme d'antériorité, seule la diffusion vers les "vulgus pecum"
est
significative...
;o)))
Où voulez -vous connaitre cela ?? sinon dans des documents techniques Microsoft et MSDN à moins d'être devin !! ce n'est pas mon cas ;-)) Bonne journée
salutations
Gilbert
"Modeste" a écrit dans le message de news:
Bonsour® Jacques93 wrote:
http://vbnet.mvps.org/code/browse/browsefolders.htm Qui a copié ? :-D
;o))) peut-on parler de copie ??? Eternel paradoxe de la poule et de l'oeuf
à ce niveau (MVP) je pense que nos maitres sont tous destinataires en avant première des mêmes documents techniques Microsoft et MSDN notament : http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/objects/shell/browseforfolder.asp et qu'en terme d'antériorité, seule la diffusion vers les "vulgus pecum" est significative... ;o)))
