![[HaBo]](/styles/default/logoklein.png){kind=small}
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.
Hat jemand ne idee, was falsch ist? - Die funktion bubblesort hab ich übrigens von der Seite http://www.aspheute.com/artikel/20000906.htm abgeguckt.
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 functionHat jemand ne idee, was falsch ist? - Die funktion bubblesort hab ich übrigens von der Seite http://www.aspheute.com/artikel/20000906.htm abgeguckt.