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

Kopieren anhand der ersten 4 Stellen des Dateinamens

Frage Entwicklung Batch & Shell

Mitglied: Ritzratz

Ritzratz (Level 1) - Jetzt verbinden

09.02.2015, aktualisiert 22:46 Uhr, 549 Aufrufe, 2 Kommentare

Hi,

ich möchte verschiedene Dateien anhand der ersten 4 Buchstaben identifizieren und dann in unterschiedliche Netzlaufwerke speichern. Die Dateinamen heißen z.B.( HAM_12324.csv; BRE_789345.csv, usw.)
Ich habe folgenden Ansatz für die ersten beiden Dateitypen (HAM_, BRE_ ). Das Kopieren haut nicht so hin. Bin kein großer Entwickler, möchte aber gern selber rumtüfteln.

Könnte mir jemand ein paar Tipps geben ?



01.
Option Explicit 
02.
 
03.
Dim fso, Verzeichnis, Datei 
04.
 
05.
' Konstanten definieren  
06.
Const quelle = "C:\temp\test" 
07.
Const ziel = "G:\Skripte\Testdateien" 
08.
 
09.
' Erstellen des System File Object 
10.
Set fso = CreateObject ("Scripting.FileSystemObject") 
11.
 
12.
'Prüfen ob Folder existieren, Dateien einlesen und Kopieren  
13.
if fso.FolderExists (quelle)Then 
14.
	Set Verzeichnis = fso.GetFolder(quelle) 
15.
	MsgBox ("Inhalt von " & quelle) 
16.
	 
17.
	For Each Datei in Verzeichnis.Files 
18.
		If UCase(Left(Datei.Name, 4)) = "HAM_" OR "BRE_"Then 
19.
			' aktuelle Datei ins Ziellauffwerk kopieren , aber wie ? 
20.
			fso.CopyFile , ziel 
21.
		end if 	 
22.
	Next	 
23.
else msgbox ("Die Quelle ist nicht vorhanden !") 
24.
end if
Danke und Gruß
Michael
Mitglied: bastla
LÖSUNG 09.02.2015, aktualisiert 10.02.2015
Hallo Ritzratz!

Ändere die Zeilen 18 bis 21 auf
If UCase(Left(Datei.Name, 4)) = "HAM_" OR UCase(Left(Datei.Name, 4)) = "BRE_" Then Datei.Copy ziel
Grüße
bastla
Bitte warten ..
Mitglied: Ritzratz
10.02.2015 um 00:04 Uhr
Hi Bastla,

Danke für die Antwort.. Hatte gerade das gleiche herausbekommen. Derzeit baue ich die einzelnen Kürzel, (es können 8 sein) in ein case, dann kann ich ein jedem einzelnen Fall ein anderes Ziellaufwerk eingeben.

Danke und Gruss
Michael
Bitte warten ..
Ähnliche Inhalte
Windows Userverwaltung
Kopieren von Dateien und Zuordnung dieser mittels erster vier Stellen des Dateinamens
gelöst Frage von ScriptingDAUWindows Userverwaltung18 Kommentare

Hallo zusammen, bislang war ich immer stiller Mitleser, konnte jedoch zu meinem aktuellen Problem keine Lösung finden und wende ...

Datenbanken
Die ersten 2 stellen in einer Spalte ändern
gelöst Frage von crashi09Datenbanken20 Kommentare

Hallo, Ich würde gerne auf unserem SQL Server in einer Tabelle eine Spalte ändern wie folgt. Es sollen nur ...

Batch & Shell
Bei Dateinamen nur erste paar Zeichen beachten
gelöst Frage von XXXBoldBatch & Shell4 Kommentare

Guten Abend Ich habe folgendes Problem: Ich habe einen Ordner mit verschiedenen dateien, die alle sehr lange, recht komplizierte ...

Batch & Shell
Powershell: Das erste Wort einer txt-Datei in zwei weiteren txt-Dateien an erster Stelle kopieren
gelöst Frage von Frank2017Batch & Shell6 Kommentare

Hallo! Versuche mit Powershell das erste Wort aus einer txt-Datei im 1. Ordner in zwei weiteren txt-Dateien im 2.Ordner ...

Neue Wissensbeiträge
Sicherheit

Blackberry stirbt - Keine Updates für Priv mehr

Tipp von certifiedit.net vor 23 MinutenSicherheit

Blackberry wird zu einer 08/15 Firma und geht wohl mehr und mehr den Weg, den HTC schon ging. Von ...

Windows 10

Autsch: Microsoft bündelt Windows 10 mit unsicherer Passwort-Manager-App

Tipp von kgborn vor 2 TagenWindows 107 Kommentare

Unter Microsofts Windows 10 haben Endbenutzer keine Kontrolle mehr, was Microsoft an Apps auf dem Betriebssystem installiert (die Windows ...

Sicherheits-Tools

Achtung: Sicherheitslücke im FortiClient VPN-Client

Tipp von kgborn vor 2 TagenSicherheits-Tools

Ich weiß nicht, wie häufig die NextGeneration Endpoint Protection-Lösung von Fortinet in deutschen Unternehmen eingesetzt wird. An dieser Stelle ...

Internet

USA: Die FCC schaff die Netzneutralität ab

Information von Frank vor 2 TagenInternet5 Kommentare

Jetzt beschädigt US-Präsident Donald Trump auch noch das Internet. Der neu eingesetzte FCC-Chef Ajit Pai ist bekannter Gegner einer ...

Heiß diskutierte Inhalte
Batch & Shell
Kann man mit einer .txt Datei eine .bat Datei öffnen?
gelöst Frage von HelloWorldBatch & Shell20 Kommentare

Wie schon im Titel beschrieben würde ich gerne durch einfaches klicken auf eine Text oder Word Datei eine Batch ...

LAN, WAN, Wireless
WLAN Reichweite erhöhen mit neuer Antenne
gelöst Frage von gdconsultLAN, WAN, Wireless10 Kommentare

Hallo, ich besitze einen TL-WN722N USB-WLAN Dongle mit einer richtigen Antenne. Ich frage mich jetzt ob man die Reichweite ...

Router & Routing
Wieso kann ich den UPD 7000-9000 nicht freigeben?
Frage von Jayk0bRouter & Routing8 Kommentare

Router: Telekom W 723V Ports: UDP 7000-9000 Können nicht frei gegeben werden. Benutzgrund: Rocket League 7000 – 9000 UDP ...

Router & Routing
Fritzbox Gastnetz - exposed Host - zur Sophos IPTV
Frage von medikopterRouter & Routing8 Kommentare

Hallo zusammen, ich habe eine Frage bezüglich des Fritz box Gastzugangs an einer Sophos UTM Home. An liebsten wäre ...