sub spielwiese
dim Stmp as string
dim Sfil as string
dim Sarr() as string ' Array ohne Größenangabe
sfil=dir(environ("TEMP"))
stmp="" ' ist zu beginn leer, da ich aber beim debuggen
' schon mal zurück springe, habe ich mir angewöhnt die Initialwerte zu setzen!
do while len(sfil)
     stmp=stmp & ";" & sfil
 
 
loop