Code:
Break ON
$=SetOption("Explicit","ON")
$=SetOption("WrapAtEOL","ON")
$=SetOption("ASCII","ON")
Dim $sBaseDir,$sDirEnt
$sBaseDir="C:\WINNT\"
$=RedirectOutput("KATEGORIEN.TXT",1)
$sDirEnt=Dir($sBaseDir)
While $sDirEnt <> "" And @ERROR = 0
If ($sDirEnt <> ".") And ($sDirEnt <> "..") And (GetFileAttr($sBaseDir+"\"+$sDirEnt) & 16)
$sDirEnt+@CRLF
EndIf
$sDirEnt = Dir()
Loop
$=RedirectOutput("")
Look at FreeFileHandle(), Open(), WriteLine() and Close() for better methods of writing file data.
