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

VB Script ändert Dateinamen

Frage Entwicklung Batch & Shell

Mitglied: mschaedler1982

mschaedler1982 (Level 1) - Jetzt verbinden

12.02.2015 um 10:55 Uhr, 736 Aufrufe, 5 Kommentare

Hallo zusammen.

Kurze Erläuterung zu diesem Thema. Eine Maschine legt jeden Tag zu einer bestimmten Uhrzeit sehr sehr viele *.csv Dateien ab.

Beispiel:

ARCHIV_Ist_Temp_Decklacktr_Z1.csv
ARCHIV_Ist_Temp_Decklacktr_Z2.csv
ARCHIV_Ist_Temp_Vulkan_Z2.csv
ARCHIV_Ist_Temp_Vulkan_Z3.csv
Meldungen.csv
Unterbrechungen.csv

Ein scheduled Task läuft einmal am Tag und startet untenstehendes VB Script. Das Script funktioniert soweit auch!
Uns sind 2 Sachen aufgefallen.

1. Im Ziel Ordner sind die Dateien 11.02.2015Unterbrechung ; 11.02.2015Meldungen vorhanden. In der Vergangenheit war zwischen Datum + Name ein Leerzeichen bei diesen Dateien, was nun nicht mehr ist.

2. Die Dateinamen sind kürzer

Beispiel der anderen Dateien: (Ziel)

11.02.2015 Ist Temp Decklacktr Z1.csv
11.02.2015 Ist Temp Decklacktr Z2.csv
11.02.2015 Ist Temp Vulkan Z2.csv
11.02.2015 Ist Temp Vulkan Z3.csv

Die Dateien sollten aber so lauten:

06.02.2014 Ist Temperatur Decklacktrockner Zone 1.csv
06.02.2014 Ist Temperatur Decklacktrockner Zone 2.csv
06.02.2014 Ist Temperatur Siebdrucktrockner 1 Zone 1.csv
06.02.2014 Ist Temperatur Vulkanisierofen Zone 1.csv

06.02.2014 Soll Temperatur Decklacktrockner Zone 1.csv
06.02.2014 Soll Temperatur Siebdrucktrockner 1 Zone 1.csv
06.02.2014 Soll Temperatur Vulkanisierofen Zone 1.csv

Hat mir jemand zu diesem Problem eine Lösung?

Hinweis. Das Script hat bis Februar 2014 funktioniert und nun geht es nicht mehr.

Danke im Voraus!!



01.
  
02.
'Vbscript zum Kopieren aller CSV Files in den Zielordner Archivieren mit angehängten Datum 
03.
 
04.
 
05.
Set IFilesystem=CreateObject("Scripting.FileSystemObject") 
06.
Set IWshShell3 = CreateObject("WScript.Shell") 
07.
On error resume next 
08.
today = Date 
09.
' die rechten 2 Stellen benutzen, da im z.b. im Januar nur eine 1 ausgegeben wird, wir aber eine 2 stellige Angabe wollen 
10.
Datum = right("0" & Day(today), 2)  & "." & right("0" & Month(today), 2) & "." & Year(today)  
11.
 
12.
'msgbox Datum 
13.
SUBJECT1 = "Archivierung Beschichtungsanlage 4 erfolgreich!" 
14.
 
15.
SUBJECT = "Archivierung Beschichtungsanlage 4 Fehler!" 
16.
 
17.
source="\\path.com\nu\Produktion-Metall\MLS-ZKD\Beschichtungslinien\Beschichtungsanlage 4\Master_Archiv_MP377\" 
18.
target="\\path.com\nu\Produktion-Metall\MLS-ZKD\Beschichtungslinien\Beschichtungsanlage 4\Master_Archiv_MP377\Archiv\" 
19.
 
20.
Set Folderobj=IFilesystem.getFolder(source) 
21.
for each file in Folderobj.files 
22.
        if right(lcase(file.name),4)=".csv" then 
23.
		'msgbox File.name 
24.
		help = replace(file.name,"_"," ") 
25.
		'msgbox help 
26.
		if left(lcase(help),6)="archiv" then 
27.
			help = replace(help,"ARCHIV","")			 
28.
 
29.
			'msgbox help 
30.
 
31.
		end if 
32.
		 
33.
		IFilesystem.CopyFile File, target & Datum & help, true 
34.
                 
35.
        end if 
36.
next 
37.
 
38.
' Statusbericht per E-Mail verschicken  
39.
 
40.
if err.number > 0 then 
41.
 
42.
	IWshShell3.Run "C:\batch\Files_archivieren_beschichtungsanlage4\blat.exe " & "C:\batch\Files_archivieren_beschichtungsanlage4\mail.txt" _ 
43.
     & " -f mail@path.com " & " -subject """ & SUBJECT & """" _ 
44.
     & " -to mail@path.com,person1@path.com,person2@path.com " _ 
45.
     & " -server server1.path.com" 
46.
else 
47.
	IWshShell3.Run "C:\batch\Files_archivieren_beschichtungsanlage4\blat.exe " & "C:\batch\Files_archivieren_beschichtungsanlage4\mail1.txt" _ 
48.
     & " -f mail@path.com " & " -subject """ & SUBJECT1 & """" _ 
49.
     & " -to mail@path.com,person1@path.com,person2@path.com " _ 
50.
     & " -server server.path.com" 
51.
 
52.
end if
Mitglied: manuel-r
LÖSUNG 12.02.2015, aktualisiert 16.03.2015
Das Script hat bis Februar 2014 funktioniert und nun geht es nicht mehr.
Ich würde mal glatt behaupten, dass dieses Script immer noch funktioniert.

Leider macht das Script nichts von dem was du beschrieben hast. Es holt lediglich in dem Pfad <source> Dateien ab, passt deren Namen geringfügig an und kopiert die Dateien dann nach <target>. Im Fehlerfall verschickt es auch noch ein paar Mails.
Ich würde an deiner Stelle mal da weiter suchen wo die Dateien ursprünglich eruegt werden...

Manuel
Bitte warten ..
Mitglied: eisbein
LÖSUNG 12.02.2015, aktualisiert 16.03.2015
Hallo!

Klingt so als hätte das Update vom 11.2.2014 etwas damit zu tun.

http://support.microsoft.com/kb/2909210/de

Mach dich diesbezüglich schlau.

Grüße
Eisbein
Bitte warten ..
Mitglied: 114757
LÖSUNG 12.02.2015, aktualisiert 16.03.2015
Moin,
wie @manuel-r schreibt, das Script hat mit den Namen eigentlich garnichts am hut. Ich würde das Problem eher an der Maschine oder was auch immer die Files erzeugt suchen. Eventuell ist für das Gerät/Maschine/.. der gesamte Pfad zu lang und kürzt es selbsttätig ?!

Gruß jodel32
Bitte warten ..
Mitglied: mschaedler1982
12.02.2015 um 14:14 Uhr
Erstmal Danke für die vielen Antworten. Wir werden die Maschine prüfen lassen.
Bitte warten ..
Mitglied: mschaedler1982
16.03.2015 um 13:06 Uhr
Ich schließe das Thema.

Hier sind in einem Jahr so viele Änderungen gemacht worden, das man es nicht mehr genau nachvollziehen kann woran es liegt.

Wir haben uns letztenendes dazu entschieden die Pfade im Makro anzupassen. (leichtester Lösungsansatz)

Danke an alle für die vielen Hinweise!
Bitte warten ..
Ähnliche Inhalte
VB for Applications
VB-Script in VB-Script starten und Parameter übergeben
gelöst Frage von denkisVB for Applications7 Kommentare

Hallo liebe Scriptgemeinde, ich muss mehrere Rechner für den Übergang in eine neue Domäne vorbereiten. Dafür sind drei wesentliche ...

Batch & Shell
Probleme bei der Ausführung eines VB-Scriptes
Frage von AuricGoldfingerBatch & Shell1 Kommentar

Hallo zusammen, ich habe folgendes Script geschrieben: Leider bekomme ich bei der Ausführung den Fehler Was mache ich falsch?? ...

Windows Server
Drucker entfernen in VB-Script
gelöst Frage von NilsvLehnWindows Server2 Kommentare

Hallo ich habe eine kleine Frage bzgl. unseres Anmeldeskriptes. Ich habe ein IT-netzwerk an einer Uni übernommen. Ich arbeite ...

Entwicklung
VB Script Drucker hinzufügen
Frage von Marcel1989Entwicklung3 Kommentare

Funktionsweise sollte definitiv sein das mit einem Script sich 2 verschiedene Betriebssysteme ein und denselben Drucker holen. Mein Script ...

Neue Wissensbeiträge
Apple

IOS 11.2.1 stopft HomeKit-Remote-Lücke

Tipp von BassFishFox vor 55 MinutenApple

Das Update für iPhone, iPad und Apple TV soll die Fernsteuerung von Smart-Home-Geräten wieder in vollem Umfang ermöglichen. Apple ...

Windows 10

Windows 10 v1709 EN murkst bei den Regionseinstellungen

Tipp von DerWoWusste vor 5 StundenWindows 10

Dieser kurze Tipp richtet sich an den kleinen Personenkreis, der Win10 v1709 EN-US frisch installiert und dabei die englische ...

Webbrowser

Kein Ton bei Firefox Quantum über RDP

Tipp von Moddry vor 6 StundenWebbrowser

Hallo Kollegen! Hatte das Problem, dass der neue Firefox bei mir auf der Kiste keinen Ton hat, wenn ich ...

Internet

EU-DSGVO: WHOIS soll weniger Informationen liefern

Information von sabines vor 18 StundenInternet4 Kommentare

Wegen der europäische Datenschutzgrundverordnung stehen die Prozesse um die Registrierung von Domains auf dem Prüfstand. Sollte die Forderungen umgesetzt ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
Von rj11 auf rj45
Frage von jensgebkenLAN, WAN, Wireless19 Kommentare

Hallo Gemeinschaft, könnt ihr mir vielleicht bei der anfertigung eines Kabels helfen - habe ein rj 11 stecker und ...

Netzwerkmanagement
Firefox Profieles im Roaming
gelöst Frage von Hendrik2586Netzwerkmanagement17 Kommentare

Hallo liebe Leute. :) Ich hab da ein kleines Problem, welches anscheinend nicht unbekannt ist. Wir nutzen hier in ...

LAN, WAN, Wireless
Häufig Probleme beim Anmelden in WLAN
Frage von mabue88LAN, WAN, Wireless15 Kommentare

Hallo zusammen, in einem Netzwerk gibt es relativ häufig (1-2 mal pro Woche) Probleme mit der WLAN-Verbindung. Zunächst mal ...

Windows Server
Remotesteuerung der Sitzung (Kennung XX) fehlgeschlagen
gelöst Frage von Stefan91Windows Server14 Kommentare

Hallo Zusammen, seit kurzem bekomme ich oben genannte Fehlermeldung, wenn ich versuche eine Remotesitzung über den Taskmanager fernzusteuern (Rechtsklick ...