Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How to prompt out a dialog box for user to get in the fi
Message
De
25/01/2011 15:40:18
 
 
À
24/01/2011 22:18:33
Yim Ming Sun Derek
Spacious Design Consultant
Hong Kong, Hong Kong
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
MS SQL Server
Application:
Web
Divers
Thread ID:
01497301
Message ID:
01497385
Vues:
116
>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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform