Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How to prompt out a dialog box for user to get in the fi
Message
From
25/01/2011 15:40:18
 
 
To
24/01/2011 22:18:33
Yim Ming Sun Derek
Spacious Design Consultant
Hong Kong, Hong Kong
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 9 SP2
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
MS SQL Server
Application:
Web
Miscellaneous
Thread ID:
01497301
Message ID:
01497385
Views:
115
>Hi,
>Sorry, I can't find the start directory option,
>can you give me some example ?

Here is wrapper for GetFile() which lets you set start folder/extension and then
consecutively restores current folder.
cFile=svgetfile('C:\temp','TXT')  &&Select txt file from given folder

function svgetfile
    lparameters cPath,cExt
    local  cPath,cExt,sv_path,aa
    sv_path=allt(sys(5)) + allt(sys(2003))
    if DirectoryExist(cPath)
        set default to (cPath)
    endif
    aa=getfile(iif(empty(cExt),'',cExt))
    set default to (sv_path)
    return aa

function DirectoryExist
    lparameters cPath
    local a,temparray(1)
    a=adir(temparray,cPath,'D')
    return iif(a>0,.t.,.f.)
HTH
Sergio
*****************
Srdjan Djordjevic
Limassol, Cyprus

Free Reporting Framework for VFP9 ;
www.Report-Sculptor.Com
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform