Yes, it works and it's great for people who don't want to use external tools
two disadvantages: it will cost you an extra form and it doesn't have the standard windows look and feel (folder tree, graphics, etc.)
Anyway, nice job...
If I choose CD ROM drive with no disk in it, then Form left blank and further actions is not possible. So I add some code in function NavigateTo: NavigateTo(partxtFolder : Text[1024])
//ST - add local variabel locOldPath::Text(1024)
IF COPYSTR(partxtFolder, STRLEN(partxtFolder), 1) <> '\' THEN
partxtFolder := partxtFolder + '\';
locOldPath := Path; //>>ST - remember old path in case drive is not ready
SETRANGE(Path, partxtFolder);
IF FIND('-') THEN //>>ST - test if find anything - added line
CurrForm.UPDATE(FALSE)
ELSE //>>ST - if drive is not ready
SETRANGE(Path, locOldPath); //>>ST - then restore old path
Nice job.
Comments
two disadvantages: it will cost you an extra form and it doesn't have the standard windows look and feel (folder tree, graphics, etc.)
Anyway, nice job...
http://home.casema.nl/mvandermeij
http://home.casema.nl/mvandermeij
If I choose CD ROM drive with no disk in it, then Form left blank and further actions is not possible. So I add some code in function NavigateTo:
NavigateTo(partxtFolder : Text[1024])
//ST - add local variabel locOldPath::Text(1024)
IF COPYSTR(partxtFolder, STRLEN(partxtFolder), 1) <> '\' THEN
partxtFolder := partxtFolder + '\';
locOldPath := Path; //>>ST - remember old path in case drive is not ready
SETRANGE(Path, partxtFolder);
IF FIND('-') THEN //>>ST - test if find anything - added line
CurrForm.UPDATE(FALSE)
ELSE //>>ST - if drive is not ready
SETRANGE(Path, locOldPath); //>>ST - then restore old path
Nice job.
By, Stanko
It doesn't look like a tree but that is OK as in my case it will be used very rarely and this wil keep me from using automatiion.
Thanks!!
-a