[HaBo]

Set WSHShell = CreateObject("Wscript.Shell")
Set AppShell = CreateObject("Shell.Application")
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set Drop=wscript.arguments

' Dialogfeld "ordner" anzeigen (benutzereingabe)
Set AppFolder = AppShell.BrowseForFolder(0, "Bitte Zielordner wählen",  &H0001, 17)
if AppFolder = vbNullString then 
	MSGBox ("Abbruch - Es wurde keine Datei kopiert")
	WSH.quit
end if

'gewählten pfad in variable schreiben
Ordner = (AppFolder.ParentFolder.ParseName(AppFolder).Path)

'den variablen teilstring abfragen (benutzereingabe)
SMnummer = InputBox("Bitte die SM-Nummer eingeben", "SM-Nummer?")
if SMnummer = vbNullString then 
	MSGBox ("Abbruch - Es wurde keine Datei kopiert")
	WSH.quit
end if

'nach dateinamen sortieren
Drop = bubblesort(Drop)

'Dateien kopieren und umbenennen
for n = 0 to Drop.count - 1
	objFSO.CopyFile Drop(n), Ordner & "/OFM_SM" & SMnummer & "_0" & n+1 & ".jpg", True
  next

  

  
  
 function bubblesort(arrSortieren)
   for i = 0 to ubound(arrSortieren)
     for j = i + 1 to ubound(arrSortieren)
       if arrSortieren(i) > arrSortieren(j) then
         arrTemp = arrSortieren(i)
         arrSortieren(i) = arrSortieren(j)
         arrSortieren(j) = arrTemp
       end if
     next
   next
   bubblesort = arrSortieren
 end function