Annonce
L'appel à participation est ouvert jusqu'au 19 janvier 2025!
#1 Mon 03 October 2005 09:15
- philippe boutelier
- Participant occasionnel
- Date d'inscription: 5 Sep 2005
- Messages: 23
Trouver un repertoire
Bonjour à tous et a toutes
Un ptit problème pour bien commencer la semaine
Je voudrais
1 que mapbasic me donne une réponse sur l'existence ou la non existence d'un répertoire.
du style if fileExists mais pour un répertoire
2 créer un boite de dialogue ou on puisse choisir un répertoire Lequel repertoire deviendra ensuite une variable réutilisable par le programme
En m excusant de faire travailler vos méninges si tôt matin
d'avance merci
Philippe Boutelier
Insee Direction régionale d'Ile-de-France
Division Population
Hors ligne
#2 Mon 03 October 2005 09:31
Re: Trouver un repertoire
Bonjour,
1 - FileExists fonctionne aussi pour un répertoire.
2 - Ci-dessous une petite fonction qui devrait répondre à ta demande :
Type BROWSEINFO
hwndOwner as Integer
pidlRoot As Integer
pszDisplayName As String
lpszTitle As String
ulFlags As Integer
lpfn As Integer
lParam As Integer
iImage As Integer
End Type
Declare function GetDirectory(Msg As String) As String
Function GetDirectory(Msg As String) As String
Dim bInfo As BROWSEINFO
Dim path As String
Dim X As Integer
path = Space$(512)
bInfo.hwndOwner = SystemInfo(SYS_INFO_MAPINFOWND)
bInfo.pidlRoot = 0
bInfo.pszDisplayName = path
bInfo.lpszTitle = Msg
'*** Paramètre BIF_NEWDIALOGSTYLE : valeur &H40 (affiche le bouton de création de nouveau dossier)
bInfo.ulFlags = &H40
bInfo.lpfn = 0
bInfo.lParam = 0
bInfo.iImage = 0
X = SHBrowseForFolder(bInfo)
If X <> 0 Then
X = SHGetPathFromIDList(X, path)
Else
Exit Sub
End If
If path <> "" Then
If Right$(path , 1) <> "\" Then
path = path + "\"
End If
End If
GetDirectory = path
End Function
Bonne journée.
Christophe.
Christophe Damour (SIGéal)
Hors ligne
