Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Vbs, Ziel-Ordner leeren, jüngste Datei aus Quell-Ordner kopieren, Anzeige Fortschrittsbalken

Frage Entwicklung VB for Applications

Mitglied: ahstax

ahstax (Level 2) - Jetzt verbinden

23.12.2012 um 10:05 Uhr, 4038 Aufrufe, 1 Kommentar

vbs, Ziel-Ordner leeren, jüngste Datei aus Quell-Ordner kopieren, Anzeige Fortschrittsbalken

Hallo,

ich möchte einen bestehenden Zielordner leeren, dann aus einem QuellOrdner eine Datei ersteDatei.bla und die jüngste Datei jüngsteDatei.xyz in den Zielordner kopieren. Beim Kopieren soll ein Fortschrittsbalken (muss nicht der Gesamtfortschritt sein) angezeigt werden.

Das mit dem Löschen und Kopieren hab ich hinbekommen, ist ein VBS-File:

01.
Dim fNewest 
02.
Dim ofilesys 
03.
 
04.
set ofilesys=CreateObject("Scripting.FileSystemObject") 
05.
set oFolder=createobject("scripting.filesystemobject").getfolder("D:\Sicherung\Backup1") 
06.
For Each aFile In oFolder.Files 
07.
    If fNewest = "" Then 
08.
        Set fNewest = aFile 
09.
    Else 
10.
        If fNewest.DateCreated < aFile.DateCreated Then 
11.
            Set fNewest = aFile 
12.
        End If 
13.
    End If 
14.
Next 
15.
 
16.
ofilesys.deleteFile ("D:\Sicherung\Backup_fuer_Band\*.*") 
17.
 
18.
'MsgBox "Neueste Datei: " + fNewest 
19.
ofilesys.CopyFile "D:\Sicherung\Backup1\Backup1.vbm", "D:\Sicherung\Backup_fuer_Band\" 
20.
ofilesys.CopyFile fNewest, "D:\Sicherung\Backup_fuer_Band\" 
21.
'MsgBox "Kopieren abgeschlossen" 
22.
 
23.
set ofilesys = nothing 
24.
set oFolder = nothing 
25.
set fNewest = nothing
Ich hab keine Ahnung, ob das ein sinnvoler/eleganter Code ist. Ich bin eher ein Copy/Paste/Anpasen-Programmierer, ohne zu wissen, was im einzelnen passiert. Aber wie gesagt, soweit funktioniert der Code. Nun hätte ich gerne einen Fortschrittsbalken angezeigt. Ist das möglich/machbar? Wenn ja, wie?

Vielen Dank für Eure Antworten schon jetzt.
Vorweihnachtliche Grüße,
Andreas
Mitglied: bastla
23.12.2012, aktualisiert um 10:52 Uhr
Hallo ahstax!

Frage 1: Warum VBS (und nicht Batch - dort würde etwas Ungetestetes in der Art
01.
@echo off & setlocal 
02.
set "Quelle=D:\Sicherung\Backup1" 
03.
set "Ziel="D:\Sicherung\Backup_fuer_Band" 
04.
 
05.
set "Latest=" 
06.
for /f "delims=" %%i in ('dir /b /a-d /o-d "%Quelle%"') do set "Latest=%%i" 
07.
if not defined Latest (echo Keine Datei gefunden! & pause & goto :eof) 
08.
del /q /f "%Ziel%" 
09.
copy "%Quelle%\Backup1.vbm" "%Ziel%\" 
10.
copy "%Quelle%\%Latest%" "%Ziel%\"
genügen)?

Frage 2: Abgesehen davon, dass VBS ja unmittelbar keine grafische Oberfläche anbietet und daher am ehesten noch eine HTA-Lösung in Frage käme - was sollte der Fortschrittsbalken darstellen, worauf soll er sich beziehen, und wie lange kann denn die ganze Aktion dauern, dass es überhaupt Sinn hätte, einen solchen Balken zu verwenden?

[Edit] Sollte es nur um eine Fortschrittsanzeige für den Kopiervorgang gehen, könntest Du in VBS etwas in der Art versuchen:
01.
Set App = CreateObject("Shell.Application") 
02.
For Each File In App.Namespace("D:\Sicherung\Backup1").Items 
03.
    If LCase(File.Name) = LCase(Latest) Then App.Namespace("D:\Sicherung\Backup_fuer_Band").CopyHere File 
04.
Next
wobei in der Variablen "Latest" der Dateiname der jüngsten Datei stehen müsste.
[/Edit]

Grüße
bastla
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
Ordner mit bestimmter Zeichenfolge aus Quelle nach Ziel kopieren
gelöst Frage von ahstaxBatch & Shell6 Kommentare

Hallo, ich möchte Ordner mit einer Batch-Datei aus einem Quellverzeichnis in ein Zielverzeichnis kopieren. Die zu kopierenden Ordner sind ...

Batch & Shell
Dateien kopieren, rekursiv in einen Ordner
gelöst Frage von golsinBatch & Shell9 Kommentare

Hallo und noch ein Frohes neues Jahr ;-) Ich bin mal wieder etwas ratlos Ich Versuche von einem Rechner ...

Batch & Shell
Ordner durchsuchen und Dateien kopieren
gelöst Frage von friedensbringerBatch & Shell4 Kommentare

Hallo zusammen, gibt es mittels Batchfile eine Möglichkeit in einem definierten Ordner inklusive allen Unterordnern (mehrere Ebenen möglich) nach ...

Batch & Shell
Ordner nach Dateien absuchen und kopieren
Frage von sbsnewbieBatch & Shell4 Kommentare

Moin Leude, folgende Frage: Ich möchte eine kleine batch bauen um ein Verezeichniss nach Dateien abzusuchen und in eine ...

Neue Wissensbeiträge
Router & Routing

Lets Encrypt kommt auf die FritzBox

Information von bitcoin vor 2 StundenRouter & Routing

In der neuesten Labor-Version der FB7490 integriert AVM unter anderem einen Let's Encrypt Client für Zugriffe auf das Webinterface ...

Internet

Was nützt HTTPS, wenn es auch von Phishing Web-Seiten genutzt wird

Information von Penny.Cilin vor 3 TagenInternet17 Kommentare

HTTPS richtig einschätzen Ob man eine Webseite via HTTPS aufruft, zeigt ein Schloss neben der Adresse im Webbrowser an. ...

Webbrowser

Bugfix für Firefox Quantum released - Installation erfolgt teilweise nicht automatisch!

Erfahrungsbericht von Volchy vor 4 TagenWebbrowser8 Kommentare

Hallo zusammen, gem. dem Artike von heise online wurde mit VersionFirefox 57.0.1 sicherheitsrelevante Bugs behoben. Entgegen der aktuellen Veröffentlichung ...

Sicherheit

Teamviewer Sessions können gekapert werden - Update tw. verfügbar

Information von sabines vor 4 TagenSicherheit7 Kommentare

In bestimmten Konstellationen können Teamviewer Sessions gekapert werden, wahrscheinlich aber ein recht unwahrscheinliches Szenario. Da der Teamviewer gerne für ...

Heiß diskutierte Inhalte
Vmware
Installation Windows 10 VMware
Frage von Ghost108Vmware17 Kommentare

Hallo zusammen, versuche gerade mit Hilfe des vshpere clients eine virtuelle Windows 10 maschine aufzusetzen. 1. virtuelle Maschine erstellt ...

Exchange Server
SBS 2011 E-Mails können gesendet werden, aber nicht von extern empfangen
Frage von andreas1234Exchange Server14 Kommentare

Hallo Community, ich habe das Problem, dass seit knapp zwei Wochen die E-Mails von meinem SBS 2011 einwandfrei gesendet ...

Voice over IP
Telefonstörung - Ortsrufnummern kein Verbindungsaufbau
Frage von Windows10GegnerVoice over IP10 Kommentare

Hallo, sowohl bei uns als auch beim Opa ist es über VoIP nicht möglich Ortsrufnummern anzurufen. Es kommt nach ...

Windows Server
Server 2012 über Eingabeaufforderung devmgmt.msc geht nicht
gelöst Frage von achim222Windows Server9 Kommentare

Hallo, ich habe hier einen Server 2012 der im Reparaturmodus startet. Es liegt an einem falschen VirtIO Treiber für ...