function RenameDir(dirname$)
  dir = readdir(dirname$)
  file$ = nextfile(dir)
  while file$ <> ""
    select filetype(dirname$ + "\" + file$)
    case 1:
      Rename(dirname$ + "\" + file$)
    case 2:
      RenameDir(dirname$ + "\" + file$)
    end select
    file$ = nextfile(dir)
  wend
end function

function renamedir(dirname$)
dir=readdir(dirname)
file$=nextfile(dir)
while not file$=""
if filetype(file)=1
     dateiumbenennfunktion(file)
else
    renamedir(file$)
endif
file$=nextfile(dir)
wend
end function

; REKURSIV1.BB
Global Grund = 10
Tiefe = 0
Graben(Tiefe)
WaitKey
;
Function Graben(Tiefe)
 If Tiefe <> Grund Then
  Tiefe = Tiefe + 1
  Print "Tiefe nun: " + Tiefe
  Graben(Tiefe)
  Print "Position nun: " + Tiefe
   EndIf
End Function

; blitz batch renamer v.2.01a

dw=GadgetWidth(Desktop())
dh=GadgetHeight(Desktop())
Global x=dw/2 - w/2 : Global y=dh/2 - h/2

Global arbeitsverzeichnis$
Global bilddatei$
Global fileout = 0
Global file$=""
Global gesamtzaehler

; -------------------- GUI ----------------------------------------

Global window1 = CreateWindow("Blitz Batch Renamer v2.01",x,y,270,240,0,1+4+8+16)

Global dirbutton2 = CreateButton("Select source file directory",42,22,180,22,window1)
SetGadgetLayout dirbutton2,0,0,0,0

Global dirlabel1 = CreateLabel("Source file directory:",85,50,120,16,window1)
SetGadgetLayout dirlabel1,1,0,1,0

Global dir1 = CreateTextField(5,71,250,22,window1)
SetGadgetLayout dir1,1,1,1,0
SetGadgetText dir1,CurrentDir$()

Global actionbutton = CreateButton("start batch",74,130,115,21,window1)
SetGadgetLayout actionbutton,1,1,1,1

Global filemenu1 = CreateMenu ("Menu", 0, WindowMenu (window1))
   CreateMenu ("About",   1, filemenu1)
   CreateMenu ("End",    2, filemenu1)

UpdateWindowMenu window1
ActivateWindow window1

;----------------------------------------------------------------
; Hauptschleife
;----------------------------------------------------------------

While Not KeyHit(1)
   WaitEvent()
   
   Select EventID()
      Case $401 ; gadget event
         Select EventSource()
            Case dirbutton2 : ChooseWorkDir()
            Case actionbutton : batch_rename(arbeitsverzeichnis$) : Exit
         End Select
            
            Case $1001 ; a menu event
               Select EventData()
                  Case 1 : Menu_About()
                  Case 2 : Exit
            End Select

End Select
   
   
Wend

End
;----------------------------------------------------------------
; functions
;----------------------------------------------------------------

Function ChooseWorkDir()
   ChangeDir RequestDir$("Verzeichnis für die Stapel-Umbenennung:")
   SetGadgetText dir1,CurrentDir$()
   arbeitsverzeichnis$ = CurrentDir$()
End Function

Function batch_rename(dirname$)

leseverzeichnis = ReadDir(dirname$)

         Repeat

            bilddatei$ = NextFile$(leseverzeichnis)
            If bilddatei$ = "" Then Exit
            
            ;FileType = Datei? Dann umbenennen
            If FileType(bilddatei$) = 1 Then
               zaehler = zaehler + 1
               gesamtzaehler = gesamtzaehler +1
               neuerdateiname$ = zaehler + ".jpg"
               
               ;Dateinamen links mit nullen auffüllen wenn die Zahl nur 1 oder 2 stellig ist
               If Len(neuerdateiname$) = 5 Then neuerdateiname$ = "00" + neuerdateiname$
               If Len(neuerdateiname$) = 6 Then neuerdateiname$ = "0" + neuerdateiname$
               
               ;Umbennenen geht nicht direkt, deshalb Kopieren mit anderem Namen, dann Quelldatei löschen
               CopyFile bilddatei$, neuerdateiname$
               DeleteFile bilddatei$
            End If
            
            If FileType(bilddatei$) = 2 Then batch_rename(bilddatei$)
            
         Forever
         
Notify "Stapelverarbeitung abgeschlossen." + gesamtzaehler + " Dateien umbenannt."
End Function

;--------------------------------------------------------------------------

Function Menu_About()
   AppTitle "Info"
   Notify "Blitz Batch Renamer v.2.01"
End Function

filetype(currentdir()+bilddatei$)

FileType(dirname$ + "\" + bilddatei$)

... Then batchrename(dirname$ + "\" + bilddatei$)

; just a tiny renamer
; (c) 2004 by walski

RenameFiles("c:\temp","*.m00","*.asf")
Print "Done - Press any key to exit"
WaitKey()

Function RenameFiles(dir$,search$,repl$,SubFolder=1)
   If Right(dir$,1)<>"\" Then
      dir$=dir$+"\"
   EndIf
   iDir=ReadDir(dir$)
   DebugLog Str(iDir) + ":" + dir$
   File$ = NextFile(iDir)
   While Not File$=""
      If FileType(dir$+File$)=2 And File$<>"." And File$<>".." Then RenameFiles(dir$ + File$,search$,repl$,SubFolder)
      File$ = NextFile(iDir)
   Wend
   stream = WriteFile("c:\bbrenametemp.bat")
   WriteLine stream,"cd " + dir$
   WriteLine stream,"rename " + search$ + " " + repl$
   CloseFile stream
   ExecFile("c:\bbrenametemp.bat")
   DeleteFile("c:\bbrenametemp.bat")
   CloseDir iDir
End Function

Print CurrentDir()
dir = ReadDir("C:\")
Print CurrentDir()
WaitKey