PATH.Make |
new-path = PATH.Make( drive AS STRING = "", directory AS STRING = "", filename AS STRING = "", extension AS STRING = "" ) AS STRING
Creates a valid Windows file specification
Example:
DIM s AS STRING
$INCLUDE "MyBASIC2_ExtLib.bas" $LIBRARY "MyBASIC2_ExtLib.dll"
s = FILE.GETOPENFILENAME( "AVI Files (*.avi)|*.avi|All Files (*.*)|*.*||", 2, "Hello", 0 )
PRINT "GetOpenFileName=";s, PRINT "Drive =";PATH.Split( s, EL_Drive ), PRINT "Folder=";PATH.Split( s, EL_Directory ), PRINT "Name =";PATH.Split( s, EL_Filename ), PRINT "Ext =";PATH.Split( s, EL_Extension ),
PRINT "Make Path: ";PATH.Make( PATH.Split( s, EL_Drive ),_ PATH.Split( s, EL_Directory ),_ PATH.Split( s, EL_Filename ),_ PATH.Split( s, EL_Extension ) ),
PRINT "Make Path: ";PATH.Make( PATH.Split( s, EL_Drive ),_ PATH.Split( s, EL_Directory ) ),
END
|