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

Mit VBS Dateien umbenennen

Frage Entwicklung VB for Applications

Mitglied: staga75

staga75 (Level 1) - Jetzt verbinden

11.01.2012 um 11:07 Uhr, 7104 Aufrufe, 4 Kommentare

Hallo Leute

Als VBS Anfänger bräuchte dringend eure Hilfe und hoffe das mir jemand weiterhelfen kann.
Ich möchte gerne via VBS diverse Files umbenennen. Leider habe ich via Suche im Forum nichts passendes gefunden. Was ich möchte ist folgendes:

Alle Files im Ordner C:\Test\
123987_FB1_1864120_3260730_55.PDF
123987_FB1_1864144_3260790_55.PDF
123987_FB1_1864160_3260711_55.PDF
usw.

sollen umbenannt werden auf
123987_FB1_1864120_bhf_55.PDF
123987_FB1_1864144_bhf_55.PDF
123987_FB1_1864160_bhf_55.PDF
usw.

Ebenso sollen alle Files im Ordner C:\Test\
123987_XG1_1855546.XML
123987_XG1_1845122.XML
123987_XG1_2587122.XML

umbenannt auf
123987_XG1_1855546.ASD
123987_XG1_1845122.ASD
123987_XG1_2587122.ASD

Zur Info:
Im Verzeichnis C:\Test\ liegen noch weitere Files welche gleich aufgebaut sind jedoch andere Nummern haben. Ich möchte also nur die files umbenennen welche den Namen 123987_FB1_*_*_55.PDF und 123987_XG1_***.XML haben.


Ich wäre sehr dankbar wenn mir jemand weiterhelfen kann.
Mitglied: bastla
11.01.2012 um 12:03 Uhr
Hallo staga75!

Könnte (ungetestet) etwa so gehen:
01.
Ordner = "C:\test" 
02.
Dateien1 = "123987_FB1_.+_.+_55\.PDF" 
03.
Dateien2 = "123987_XG1_.+\.XML" 
04.
 
05.
Set fso = CreateObject("Scripting.FileSystemObject") 
06.
Set rE = New RegExp 
07.
rE.IgnoreCase = True 
08.
 
09.
For Each File In fso.GetFolder(Ordner).Files 
10.
    rE.Pattern = Dateien1 
11.
    If rE.Test(File.Name) Then 
12.
        FileParts = Split(File.Name, "_") 'Dateinamen anhand des Trennzeichens "_" zerlegen und ... 
13.
        NameNew = FileParts(0) & "_" & FileParts(1) & "_" & FileParts(2) & "_bhf_" & FileParts(4) '... neu zusammensetzen 
14.
        'File.Name = NameNew 
15.
        WScript.Echo File.Name & " --> " & NameNew 
16.
    End If 
17.
 
18.
    rE.Pattern = Dateien2 
19.
    If rE.Test(File.Name) Then 
20.
        NameNew = fso.GetBaseName(File.Name) & ".ASD" 'Dateinamen ohne Typ mit ".ASD" ergänzen 
21.
        'File.Name = NameNew 
22.
        WScript.Echo File.Name & " --> " & NameNew		 
23.
    End If 
24.
Next
Zum Testen aus einem CMD-Fenster mit
cscript "D:\RenameScript.vbs"
starten, da wegen der "WScript.Echo"-Ausgaben ansonsten für jede passende Datei eine MsgBox angezeigt würde ...

Die "Datei-Muster" werden per RegEx geprüft - daher die entsprechende Schreibweise in den Zeilen 2 und 3 (siehe dazu zB http://msdn.microsoft.com/en-us/library/ms974570.aspx oder die VBS-Hilfe) ...

Wenn die Tests erfolgreich waren und tatsächlich umbenannt werden soll, die Kommentarzeichen in den Zeilen 14 und 21 entfernen; die Zeilen 15 und 22 können dann entfernt oder auskommentiert werden).

Grüße
bastla
Bitte warten ..
Mitglied: staga75
11.01.2012 um 13:04 Uhr
Hallo bastla

Vielen dank für die schnelle Antwort und "wow" für die super Vorlage. Ich habe das ganze bereits getestet und es funktioniert einwandfrei. Super

Herzlichen Dank und einen angenehmen Nachmittag.

Gruss
Staga
Bitte warten ..
Mitglied: staga75
11.01.2012 um 13:14 Uhr
Hallo bastla

Noch ne kleine Frage ich hoffe ich bereite dir nicht zu grossen Aufwand:

Was muss ich machen wenn ich die Dateien welche ich umbenannt habe in das Verzeichnis C:\Temp\Kunde verschieben möchte.

Gruss
Staga
Bitte warten ..
Mitglied: staga75
11.01.2012 um 13:27 Uhr
Hallo bastla

ich habs selber geschafft, sorry falls du dich schon meiner Bitte angenommen hast.

Gruss
Staga
Bitte warten ..
Ähnliche Inhalte
VB for Applications
Vbs - Datei wenn vorhanden (alle Laufwerke) umbenennen
gelöst Frage von aletriVB for Applications4 Kommentare

Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists("C:\Dir\File.xxx") Then fso.MoveFile "C:\Dir\File.xxx" , "C:\Dir\File.xxx" ElseIf Not fso.FileExists("C:\Dir\File.xxx") Then End If Wie kann ...

Batch & Shell
Dateien Umbenennen
gelöst Frage von PLBot85Batch & Shell6 Kommentare

Hi, ich habe einen Ordner wo mehrer Dateien drin liegen. 20150316_121757_92636382965528_WMA1847GK62_TDOBB112.ddd 20150314_085730_73826383950256_WMA18263926_TDOBB236.ddd etc Die sollen jetzt mittels einer Batchdatei ...

Batch & Shell
Dateiendung Temporär umbenennen mit vbs (ohne Pfadangabe)
gelöst Frage von o0Julia0oBatch & Shell2 Kommentare

hallo :) ich kenne mich ein wenig mit Batch-Dateien aus, aber nicht mit VBS. Ich möchte aber mit VBS ...

Batch & Shell
Dateien verschieben und umbenennen
gelöst Frage von eazy-isiBatch & Shell12 Kommentare

Hallo zusammen, ich stehe vor folgender Herausforderung. Ich muss aus einem Verzeichnis Dateien in ein anderes Verzeichnis verschieben und ...

Neue Wissensbeiträge
Microsoft Office

Office 2010 Starter erneut auf einer frischen Windows-Version installieren

Tipp von Lochkartenstanzer vor 1 TagMicrosoft Office9 Kommentare

Moin, vor ein paar Tagen schlug bei mir ein Kunde auf, der sein Widnows 7 geschrottet und es inklusive ...

Datenbanken

Upgrade MongoDB 3.4 auf 3.6

Erfahrungsbericht von Frank vor 1 TagDatenbanken

Seit kurzem gibt es das 3.6 Update für die MongoDB: Sicherheit, das Sortieren, Aggregation und auch die Performance wurde ...

SAN, NAS, DAS

Backdoor Zugang und Upload-Bug in vielen Western Digital MyCloud Geräten

Information von Frank vor 1 TagSAN, NAS, DAS2 Kommentare

James Bercegay von der Firma Gulftech hat die Fehler an Western Digital gemeldet und das Unternehmen stellt bereits ein ...

Microsoft Office

Outlook 2016 - Beim Weiterleiten keine PDF Anhänge mehr - KB4011626 entfernen

Erfahrungsbericht von Deepsys vor 1 TagMicrosoft Office3 Kommentare

Wenn ihr feststellt das ihr beim Weiterleiten von E-Mails keine PDF Anhänge mehr versendent, dann dankt Microsoft. Diese tolle ...

Heiß diskutierte Inhalte
Netzwerke
NTFS-Berechtigung
Frage von Daoudi1973Netzwerke23 Kommentare

Hallo zusammen und frohes neues Jahr (Sorry, ich bin spät dran) Meine Frage: 1- Ich habe einen Ordner im ...

Drucker und Scanner
Gesucht DIN A3 Drucker
Frage von NebellichtDrucker und Scanner15 Kommentare

Hallo, ich möchte einen neuen DIN A3 Drucker kaufen. Um ab und zu, ca. 1 mal die Woche Farbausdrucke ...

iOS
Einladung vom iphone kalender
Frage von jensgebkeniOS15 Kommentare

Hallo Gemeinschaft, folgendes Problem - immer wenn ich von meinem Iphone einen Termin einztrage und diesem Termin Teilnehmer zuweise, ...

Windows Netzwerk
Drucker isolieren in Windows Domäne
gelöst Frage von lcer00Windows Netzwerk14 Kommentare

Hallo zusammen, habe eine Windows-AD (2012R2) in der es einen Druckerserver gibt. Mittlerweile verliere ich das Vertrauen in die ...