Discussion :

[Xavier]

Bonjour,
Avec OpenDialog, il est possible de sélectionner un ou plusieurs fichiers.
J'aimerais savoir comment sélectionner un dossier via OpenDialog.
J'ai essayé simplement d'ouvrir un nom de dossier mais il affiche Fichier inexistant?
Merci de votre aide.
Xavier

[Carmichael]

Bonjour,

Il n'existe pas d'objet TDirectoryDialog.
Embarcadero propose un objet nommé TSelectDirectory, mais qui donne un aspect ancien à votre application.
Essayez ce bout de code là :

const SELDIRHELP = 1000;
String Dir = "C:\\ ";
if (SelectDirectory(Dir, TselectDirOpts() << sdAllowCreate << sdPerformCreate << sdPrompt, SELDIRHELP ))
{…
} ;


Pour choisir un repertoire d'une façon moderne, vous n'avez pas d'autre choix que de faire appel directement à l'API de Windows de cette façon :

HRESULT hr = CoInitializeEx(NULL, COINIT_APARTMENTTHREADED | COINIT_DISABLE_OLE1DDE) ;
if (SUCCEEDED(hr))
{IfileOpenDialog *FenChoixRepertoire ;
// Création de l’objet boite de dialogue.
hr = CoCreateInstance(CLSID_FileOpenDialog, NULL, CLSCTX_ALL, IID_IfileOpenDialog, reinterpret_cast<void**>(&FenChoixRepertoire)) ;
if (SUCCEEDED(hr))
{DWORD dwOptions ;
hr = FenChoixRepertoire->GetOptions(&dwOptions) ;
hr = FenChoixRepertoire->SetOptions(dwOptions | FOS_PICKFOLDERS) ;
// Afficher la fenêtre.
hr = FenChoixRepertoire->Show(NULL) ;
// Récupérer le nom du répertoire.
if (SUCCEEDED(hr))
{IshellItem *pItem ;
hr = FenChoixRepertoire->GetResult(&pItem) ;
if (SUCCEEDED(hr))
{PWSTR pszFilePath ;
hr = pItem->GetDisplayName(SIGDN_FILESYSPATH, &pszFilePath) ;
// Afficher le résultat pour control.
if (SUCCEEDED(hr))
{// On met ici une fenetre surgissante temporairement.
Application->MessageBox(pszFilePath, L"Repertoire choisi : ", MB_OK);
CoTaskMemFree(pszFilePath);
}
pItem->Release();
}
}
FenChoixRepertoire->Release();
}
CoUninitialize();
};

Le répertoire est stocké dans la variable pszFilePath.

Cordialement

Carmichael

[Xavier]

Bonsoir Carmichael,
merci beaucoup de tes solutions.
J'ai testé toutes les deux méthodes, elles marchent sur XE3 et XE10.
J'ai adopté la solution moderne dans mon appli avec succès même si je ne comprends pas toutes les instructions utilisées.

Cordialement
Xavier