Array sortieren in VBscript

flame

New member
Hi, ich hab n kleines problem mit einem VBScript, und zwar möchte ich dateien mittels eines scripts kopieren, und umbenennen.

Und zwar muss ich mehrmals täglich am laptop unterwegs, dateien von einer Digitalkamera in ein Verzeichnis auf dem laptop kopieren, umbenennen und am besten noch mit einem wasserzeichen versehen. Mit dem Touchpad ist das trotz Tastaturkürzel echt nervig, deswegen wollte ich mir ein script dafür schreiben, mit dem ich nur die dateien markieren muss, und per "senden an" das script, nur noch die einzelnen informationen eingeben muss, und fertig.

Folgendes hab ich bisher erarbeitet, leider funktioniert das sortieren nicht, die übergebenen objekte kommen nicht alphabetisch sortiert aus dem script.

Code:
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

Hat jemand ne idee, was falsch ist? - Die funktion bubblesort hab ich übrigens von der Seite http://www.aspheute.com/artikel/20000906.htm abgeguckt.
 
Oben