


Dim dlg As New CdlgEx
dlg.DialogTitle = "Select Folder"
dlg.DialogPrompt="Please select the desired folder"
dlg.ShowFolder
BlaBlaBla=dlg.InitDir 'где blablabla - переменная, содержащая руть к папке
Сейчас этот форум просматривают: Google-бот, PetalBot и гости: 16