Je was op zoek naar: spath (Engels - Nederlands)

spath = curdir
spad = curdir

msgbox sdir,0,spath
msgbox sdir,0,spad

dim spath as string
dim spad as string

spath = "c:\\"
spad = "c:\\"

sfile = dir$( spath ,22)
sbestand = dir$( spath ,22)

observations sur la formation et la cristallisation sous-marines du spath calcaire.
"recueil des bulletins de montpellier," i, p. 359-361 et "journ.

svalue = dir$(spath + getpathseparator + "*",16)
swaarde = dir$(spad + getpathseparator + "*",16)

if (getattr( spath + getpathseparator + svalue) and 16) >0 then
if (getattr( spad + getpathseparator + swaarde) and 16) >0 then