Re(5): kleine batch datei unter win xp

kleine batch datei unter win xp (20 Beiträge, 401 Mal gelesen)

Du bist nicht angemeldet. [ Login/Registrieren ]

ich hab folgendes kleines problem, dass ich gerne gelöst hätte, indem mir jemand von euch eine kleine batch-datei oder ein kl prog schreibt, dass diese anforderungen erfüllt - hoffe dass ich da nicht allzuviel verlange, aber ich denke, das ist nicht schwer wenn man eine ahnung hat was man macht...

ausgangsituation:

ordner 1 = archiv
ordner 2 = vorlage
ordner 3 = aktuell

in ordner 3 und 2 stehen 2 excel-dateien. datei x und datei y

auf knopfdruck (als die batchdatei oder das prog starten) sollen die dateien x und y aus dem ordner 3 in den ordner 1 geschoben werden und deren dateiname jeweils auf x050523 und y050523 (mit aktuellem datum) umbenannt werden. danach sollen die dateien x und y aus dem ordner 2 in den ordner 3 kopiert werden. fertig!

kann mir da jemand weiterhelfen?!
danke im voraus!

Re: kleine batch datei unter win xp (dr_med am 23.05.2005, 21:56:48)

Re(2): kleine batch datei unter win xp (haem am 23.05.2005, 22:01:43)

Re(3): kleine batch datei unter win xp (dr_med am 23.05.2005, 22:25:28)

Re(2): kleine batch datei unter win xp (hariw am 23.05.2005, 22:12:22)

Re(3): kleine batch datei unter win xp (dr_med am 23.05.2005, 22:26:38)

Re(3): kleine batch datei unter win xp (haem am 24.05.2005, 00:19:18)

Re: kleine batch datei unter win xp (haem am 23.05.2005, 21:56:53)

Re(2): kleine batch datei unter win xp (dr_med am 23.05.2005, 22:24:47)

Re: kleine batch datei unter win xp (Dr. Watson am 24.05.2005, 13:04:09)

Re(2): kleine batch datei unter win xp (dr_med am 24.05.2005, 20:55:59)

Re: kleine batch datei unter win xp (Thing am 25.05.2005, 00:10:51)

Re(2): kleine batch datei unter win xp (dr_med am 25.05.2005, 11:45:26)

Re(3): kleine batch datei unter win xp (Thing am 25.05.2005, 21:08:19)

Re(4): kleine batch datei unter win xp (dr_med am 26.05.2005, 15:32:01)

Re(4): kleine batch datei unter win xp (dr_med am 26.05.2005, 18:42:20)

Na fein, das ist doch schon was.

Zum Druckproblem:
Ich glaube, dass es auf dem anderen Rechner mit angeschlossenem und angeschaltenem Drucker eigentlich funktionieren müsste. Falls es doch nicht funktioniert, dann füge einfach einmal eine Zeile "objXl.Visible = True" (ohne Anführungszeichen) nach der Zeile "Set objXl = CreateObject("Excel.Application")" ein. Da Excel dann nicht mehr versteckt arbeitet, sollten auch etwaige Fehlermeldungen besser sichtbar sein.
Auf dem Laptop der Freundin dürfte der Druckbefehl zwar abgesendet worden sein, mangels angeschlossenem Drucker aber in der Druckerwarteschlange verendet sein (eventuell bei Gelegenheit einmal kontrollieren und den etwaig vorhandenen Druckjob einfach löschen). Vielleicht gabs aber auch eine Fehlermeldung, die bedingt durch den "Excel-Unsichtbar-Modus" unterdrückt wurde. Ist aber eigentlich nicht weiter schlimm.

Zum Thema "Erklärungsseiten":
Ich verwende zum Nachschlagen am liebsten:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnanchor/html/scriptinga.asp
Eventuell sind folgende auch ganz hilfreich:
http://www.arstechnica.de/computer/vbs/einfuehrung.html
http://www.html-world.de/program/vbs_1.php#wiesetzeichvbsein
Für alles was mit den Excel-Innereien zu tun hat (z.B. der PrintOut-Befehl) benutze ich den "Object Browser" (in Excel Über Menü Extras -> Makro -> Visual Basic Editor und dann "F2" drücken. Hier kann man wochenlang das sehr mächtige Excel-Objektmodell erforschen und sich die Hilfetexte für die Befehle anzeigen lassen.

Zum Thema "Andere Dateien":
Dazu ist eine kleine Anpassung notwendig (siehe untenstehender Code). Mit diesem Skript sollte das funktionieren. Weiters ist es nun zumindest theoretisch egal, wenn Du in den Ordnern 1 und 3 z.B. noch ein paar Urlaubsfotos herumstehen hast, die mit der Sicherung eigentlich gar nichts zu tun haben. Relevant sind nur noch die Namen der Dateien, die im Ordner 2 stehen (egal welchen Dateityp sie haben). Genau diese Dateien werden verschoben und kopiert.
Gedruckt werden allerdings nur Excel-Dateien bzw. in der neuen Version auch Word-Dateien (solltest Du mit Word nichts am Hut haben, dann lösch einfach die 3 Zeilen in denen "objWord" vorkommt).

-----

Set Fso = CreateObject("Scripting.FileSystemObject")
Set objExcel = CreateObject("Excel.Application")
Set objWord = CreateObject("Word.Application")

Ordner1 = "C:\Archiv\"
Ordner2 = "C:\Vorlage\"
Ordner3 = "C:\Aktuell\"

For Each Fi In Fso.GetFolder(Ordner2).Files
    FileExt = Fso.GetExtensionName(Fi.Name)
    ArchivFileName = Fso.GetBaseName(Fi.Name) & "(" & Replace(Now,":","") & ")." & FileExt
    Fso.MoveFile Ordner3 & Fi.Name, Ordner1 & ArchivFileName
    Fso.CopyFile Ordner2 & Fi.Name, Ordner3 & Fi.Name
    Select Case UCase(FileExt)
       Case "XLS": objExcel.Workbooks.Open(Ordner1 & ArchivFileName).Sheets(1).Printout
       Case "DOC": objWord.Documents.Open(Ordner1 & ArchivFileName).Printout
    End Select
Next
objExcel.Quit
objWord.Quit

-----

Viel Erfolg!

Re(6): kleine batch datei unter win xp (dr_med am 27.05.2005, 13:37:58)

Re(7): kleine batch datei unter win xp (Thing am 28.05.2005, 10:57:18)

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung