PureBasic Forums - English

Posted: **Tue Dec 18, 2007 11:18 pm**

In the debugger tools under Library Viewer i wish i could select FileSystem to show all open #Dir´s :roll:

Filename$=GetTemporaryDirectory()+Str(Random(255))+".txt"
file=CreateFile(#PB_Any,Filename$)
Dir=ExamineDirectory(#PB_Any,"C:\","")
If Dir
  While NextDirectoryEntry(Dir)
    Select DirectoryEntryType(Dir)
      Case #PB_DirectoryEntry_File
        Debug DirectoryEntryName(Dir)
      Case #PB_DirectoryEntry_Directory
        Debug "["+DirectoryEntryName(Dir)+"]"
    EndSelect
    
    ; show all open #Dir´s in the library viewer (feature request)
    
    CallDebugger
  Wend
  FinishDirectory(Dir)
EndIf
If file
  CloseFile(file)
EndIf
DeleteFile(Filename$)

Regards Klaus