Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Getfile - Alternative Needed
Message
De
31/01/1999 14:15:16
Nancy Folsom
Pixel Dust Industries
Washington, États-Unis
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00182231
Message ID:
00182298
Vues:
58
Hi, Robert-
I hope I'm not intrepreting your question too simplistically, but couldn't you simply write your own function that "wraps" GetFile--Something like the following? (Code is off the top of my head...)

FUNCTION get_File( tcType, tcDir )
LPARAMTER tcType, tcDir
LOCAL lcDefaultDir, lcDefaultDrive, lcfile
tcDir = IIF( TYPE( 'tcDir' ) <> 'C', SYS(2003), tcDir )
tcType = IIF( TYPE( 'tcType' ) <> 'C', 'BMP,GIF', tcType

lcDefaultDIR = SYS(2003)
lcDefaultDrive = SYS(5)

SET DEFAULT TO tcDir

lcFile = GETFILE( blah, blah, blah )
*!* Check that a file was really selected, etc, etc.

SET DEFAULT TO (lcDefaultDrive + lcDefaultDir)

RETURN lcFile

>I want:
>lcFile = getfile('bmp,gif', 'graphics') or similar
>where graphics is the subdirectory.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform