Function ADVDirRequest$()
   
   Local DirRequest
   Local DriveSelect
   Local DriveLabel
   Local DirBox
   Local CurPath
   Local OK
   Local Cancel
   Local NewFolder
      DirRequest = CreateWindow("Select a Folder",46,150,400,300,Desktop(),1)
      DriveSelect = CreateComboBox(288,3,100,100,DirRequest,0)
      AddGadgetItem DriveSelect,""
      SelectGadgetItem DriveSelect,0
      SetGadgetLayout DriveSelect,1,0,1,0
      DriveLabel = CreateLabel("Select a Drive:",203,4,80,20,DirRequest,0)
      SetGadgetLayout DriveLabel,1,0,1,0
      DirBox = CreateListBox(1,60,390,190,DirRequest,0)
      AddGadgetItem DirBox,""
      SelectGadgetItem DirBox,0
      SetGadgetLayout DirBox,1,0,1,0
      CurPath = CreateLabel("Pfad:",2,25,300,35,DirRequest,0)
      SetGadgetLayout CurPath,1,0,1,0
      OK = CreateButton("OK",3,252,100,20,DirRequest,0)
      SetGadgetLayout OK,1,0,1,0
      Cancel = CreateButton("Cancel",288,252,100,20,DirRequest,0)
      SetGadgetLayout Cancel,1,0,1,0
      NewFolder = CreateButton("Create Folder",139,252,100,20,DirRequest,0)
      SetGadgetLayout NewFolder,1,0,1,0
      DisableGadget(DirRequest)
      FillDriveList(DriveSelect)
      CPath$=GadgetItemText$(DriveSelect,SelectedGadgetItem(DriveSelect))+"\"
      FillFolderBox(DirBox,CPath$)
      SetGadgetText CurPath,CPath$
      EnableGadget(DirRequest)LEvent = 0
      
      
      
   While LEvent<>$803
      LEvent = WaitEvent()
      If LEvent=1025
         Select EventSource()
         Case DriveSelect
            CPath$ = GadgetItemText$(DriveSelect,SelectedGadgetItem(DriveSelect))+"\"
            SetGadgetText CurPath,CPath$
            FillFolderBox(DirBox,GadgetItemText$(DriveSelect,SelectedGadgetItem(DriveSelect))+"\")
         Case DirBox
            NItem = SelectedGadgetItem(DirBox)
               CPath$ = CPath$ + GadgetItemText(DirBox,NItem) + "\"
               If Right$(CPath$,4)="\..\" Then
                  CPath$= Mid(CPath$,1,Len(CPath$)-4)
                  Cpath$ = Mid(Cpath$,1,RInstr(Cpath$,"\"))
               EndIf
               FillFolderBox(DirBox,CPath$)
         Case NewFolder
            nFolder$ = InputBox$()
            If nFolder$<>"" Then
               CreateDir CPath$ + "\" + nFolder$
            EndIf
            FillFolderBox(DirBox,CPath$)
         Case OK
            FreeGadget DirRequest
            Return CPath$
         Case Cancel
            Return ""
         End Select
      EndIf
      FlushEvents
      SetGadgetText CurPath,CPath$
   Wend
   FreeGadget DirRequest
   Return ""
End Function

; ----Function Begins----
Function FillDriveList(Gadget)
   ClearGadgetItems(Gadget)
   For i=65 To 90
      temp = ReadDir(Chr$(i)+":\")
      If temp Then
         AddGadgetItem Gadget,Chr$(i)+":"
      EndIf
   Next
   If CountGadgetItems(Gadget)>0 Then
      SelectGadgetItem Gadget,0
   EndIf
End Function

Function FillFolderBox(Gadget,Dir$)
   FlushEvents
   CDir = ReadDir(Dir$)
   If CDir Then
      ClearGadgetItems(Gadget)
      While MoreFiles(CDir)
         CFile$ = NextFile$(CDir)
         If FileType(Dir$ + CFile$)=2 Or CFile$=".." And (Not CFile$=".") Then
            AddGadgetItem(Gadget,CFile$)
         EndIf
      Wend
   EndIf
End Function

Function RInstr(Bay$,Hash$,Start=0)
   If Start>Len(Bay$) Then
      Return 0
   EndIf
   If Start+Len(Hash$)>Len(Bay$) Or Start=0 Then
      Start = Len(Bay$)-Len(Hash$)
   EndIf
   For i=Start To 1 Step -1
      If Mid(Bay$,i,Len(Hash$))=Hash$ Then
         Return i
      EndIf
   Next
   Return 0
End Function

Function InputBox$()
Local InputBox,NewFolderLabel,NewFolderText,OK,Cancel,LEvent
InputBox = CreateWindow("Create new Folder",50,150,300,80,Desktop(),1)
NewFolderLabel = CreateLabel("New Folder's Name:",6,9,100,20,InputBox,0)
SetGadgetLayout NewFolderLabel,1,0,1,0
NewFolderText = CreateTextField(4,30,280,20,InputBox,0)
SetGadgetText NewFolderText,""
SetGadgetLayout NewFolderText,1,0,1,0
OK = CreateButton("O.K.",108,5,50,20,InputBox,0)
SetGadgetLayout OK,1,0,1,0
Cancel = CreateButton("Cancel",166,5,100,20,InputBox,0)
SetGadgetLayout Cancel,1,0,1,0
LEvent = 0
While LEvent<>$803
   LEvent=WaitEvent()
   If LEvent = 1025 Then
      Select EventSource()
         Case OK
            temp_text$ = TextFieldText$(NewFolderText)
            FreeGadget InputBox
            Return temp_text$
         Case Cancel
            FreeGadget InputBox
            Return ""
      End Select
   EndIf
; Do Something
Wend
FreeGadget InputBox
Return ""
; ----Function Begins----
End Function