Frage Entwicklung VB for Applications

gelöst VBSkript umschreiben, um eine Datei zu kopieren (absoluter Anfänger!)

' --------snipp copyStamped.vbs Vers. 001 (mit kleinen Fehlern!)

' !!! Aufruf zumindest beim Testen vom CMD-Prompt: 

' !!!  cscript //nologo copyStamped.vbs sourceFile targetFolder

' --- später auch so:

' copyStamped.vbs [lw:\path\]sourceFile targetFolder

Option Explicit 'Tippfehler vermeiden - nur deklarierte Variablen verwenden

' wir schreiben in VBSkript... also benennen wir auch Variablen englisch

' oXXX.. wenn es um Objects geht.. strYYY, wenn es um Strings geht

Dim oFSO, oFile, strFileName, strNewStampedFilename, strFldrName

' Wir brauchen 2 Parameter (sourceFile und targetFolder) zwingend- 

' Sonst brauchen wir nicht anfangen- Also müssen zwei Argumente da sein.

' In VBS heißen die wscript.arguments(n) von 0 bis wscript.arguments.count

If wscript.arguments.count() < 2 then ' weniger als 2 Parameter? Dann Feierabend

   wscript.echo "Fehler: Parameter fehlt. Aufruf: copyStamped [path:\]sourceFile.ext targetFolder"

   wscript.quit(4) 'Raus mit Errorlevel 4 => soll bedeuten: "Parameterfehler"

end if

' "einfache" Variablentypen wie Strings und numerische Werte mit [ var=wert] zuweisen

strFileName = wscript.arguments(0) 'voller Quell-Dateiname ist Parameter 1

strFldrName = wscript.arguments(1) 'Ziel-Ordner ist in Parameter 2 übergeben

' "nicht so einfache" Variablentypen wie Objects werden mit "Set oXXX = ..." instanziert

Set oFSO = WScript.CreateObject("Scripting.FileSystemObject")

If not oFSO.FileExists(strFileName) then  ' existiert die angegebene Datei?

   wscript.echo "Fehler: Datei " & strFileName & " nicht gefunden."

   wscript.quit(2) 'Raus mit Errorlevel 2 => Soll bedeuten: Quelldatei nicht gefunden 

End if   

If not oFSO.FolderExists(strFldrName) then  ' existiert der angegebene Zielordner?

   ' Anmerkung: In der Version 0.02 könne wir auch den Zielordner bei Bedarf anlegen

   ' dann würde jetzt folgen: oFSO.CreateFolder(strFldrName) ... heben wir auf für später

   ' jetzt behaupten wir: Zielordner MUSS da sein.

   wscript.echo "Fehler: Zielordner " & strFldrName & " nicht gefunden."

   wscript.quit(2) 'Raus mit Errorlevel 3 => Soll bedeuten: Zielordner nicht gefunden 

End if   

Set oFile=oFSO.GetFile(strFileName)

strNewStampedFileName = oFSO.GetBaseName(strFilename) & "_" & DatumZeit &  right(strFilename,4) 

On error resume next

oFile.Copy strFldrName & "\" & strNewStampedFileName 

If oFSO.FileExist(strFldrName & "\" & strNewStampedFileName) then

   wscript.echo "Neuer Dateiname: " & strNewStampedFileName

End if

WScript.Quit

' ------------------------------------ 

Function DatumZeit 

' 

' gibt eine Zeichenfolge zurück, die Datum / Zeit enthält

' und als Dateiname / Verzeichnisnae verwendet werden kann

Dim Zeit

Zeit = now() 

' wir wollen "JJJJMMTT_hhmm" ...also erstmal: vierstellige Jahreszahl 

DatumZeit = Right(Year(Zeit),4) 

' ....danach zweistellige Monatszahl 

If Len(Month(Zeit)) = 1 then DatumZeit = DatumZeit & "0" 

DatumZeit = DatumZeit & Month(Zeit) 

' ... dann zweistellige Tageszahl 

If Len(Day(Zeit)) = 1 then DatumZeit = DatumZeit & "0" 

DatumZeit = DatumZeit & Day(Zeit) & "_"  ' den Trenner "_" gleich dazu..

' ... jetzt zweistellige Stundenzahl

If Len(Hour(Zeit)) = 1 then DatumZeit = DatumZeit & "0"

DatumZeit = DatumZeit & Hour(Zeit) 

' zweistellige Minutenzahl 

If Len(Minute(Zeit)) = 1 then DatumZeit = DatumZeit & "0" & Minute(Zeit) 

DatumZeit = DatumZeit & Minute(Zeit) 

End Function ' DatumZeit 

' **

' ---- snapp copyStamped.vbs

$cmd$cscript //nologo copystamped.vbs z:\autoruns.chm z:\save

Neuer Dateiname: autoruns_20060909_0142.chm