Opening a folder with partial name

sorenhinrup

Hi,

For our orderadministrators, I am trying to program a shortcut for them to a folder on a network directory. I have done it through this code piece:

Param := '/n,/e,F:\CrossOrg\MX_Order_Files\' + FORMAT("Sell-to Customer No.") + '\Order' + FORMAT("No.");

SLEEP(1000);
IF EXISTS('c:\winnt\Explorer.exe') THEN
SHELL(Text50001,Param)
ELSE
IF EXISTS('c:\Windows\explorer.exe') THEN
SHELL(Text50002,Param);

Where Text50001 is "c:\winnt\Explorer.exe" and Text50002 is "c:\Windows\explorer.exe"

This all works fine, when the name of the orderfolder ends with the order number. But now they begin to change the folder name, and adds a description in the end of the folder name, so it changes from "Order102268" to "Order102268 - Modulex A/S". So now i need to get some sort of wildcard in the end of the Param, so it can open the folder no matter what description they add after the number.

I hope some of you oracles out there can help me.

Best Regards
Søren Hinrup, Modulex A/S

kriki

You need to use something like this to find the folder:

recFile.reset;
recFile.setrange(path,'C:\Windows\');
recFile.setrange("Is a file",false);
recFile.setfilter(Name,'%1','@System' + '*');
IF recFile.findfirst then
  message('%1',recFile.Name);
IF recFile.findlast then
  message('%1',recFile.Name);