Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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
Kommentar vom Moderator Biber am 31.03.2010 um 16:24:25 Uhr
Irgendwie habe ich den Eindruck, einige Fragesteller versuchen gewissen running gag countern weiträumig aus dem Wege zu gehen, hmm?
Is' jezz' nur so'n Verdacht....
GELÖST

Ordnername ist gleich Dateiname renamer

Frage Entwicklung Batch & Shell

Mitglied: timlagezz

timlagezz (Level 1) - Jetzt verbinden

31.03.2010, aktualisiert 16:24 Uhr, 5774 Aufrufe, 3 Kommentare

brauche hilfe beim erstellen einer bat

hallo leider kenn ich mich mit den bat befehlen nicht so aus. ich brauche aber eine bat da es sonst sehr lange dauern würde, alles per hand umzuändern

Situation:

ich habe einen ordner in denen ca 100 ordner sind,
in jedem dieser 100 ordnern befindet sich eine datei.
und genau diese datei soll den namen des ordners (in dem sie liegt) erhalten.

(ich hoffe man versteht was ich brauch?)

Bsp.:

Ordnerxy\001\abc.bmp
Ordnerxy\002\def.bmp
Ordnerxy\003\ghi.bmp

wird zu:

Ordnerxy\001\001.bmp
Ordnerxy\002\002.bmp
Ordnerxy\003\003.bmp


sowas müsste doch mit einer bat datei zu machen sein?
ich habe schon mehrere rename tools probiert aber keinen erfolg gehabt.
ich hoffe mir kann jemand helfen
Mitglied: bastla
31.03.2010 um 14:51 Uhr
Hallo timlagezz und willkommen im Forum!

Wenn es tatsächlich in jedem Ordner genau eine Datei gibt, dann etwa so:
for /d %i in ("D:\Ordnerxy\*.*") do @for %a in ("%i\*.bmp") do @echo ren "%~fa" "%~nxi%~xa"
Die Zeile ist zum Einsatz direkt im CMD-Fenster und als Test gedacht, da - solange das "echo" vor dem "ren" steht - nur der Befehl für das Umbenennen angezeigt wird.

Grüße
bastla
Bitte warten ..
Mitglied: Edi.Pfisterer
31.03.2010 um 15:21 Uhr
Hallo timlagezz und auch Willkommen von mir

Hier noch die Entsprechung in vbs... (sollte auch funktionieren, wenn mehrere Files in den Ordnern sind...)
(falls das mal jemand sucht...)

01.
woissndes = "c:\Ordnerxy" 
02.
neuesformat = ".bmp" 
03.
Set objFSO = CreateObject("Scripting.FileSystemObject") 
04.
Set objFolder = objFSO.GetFolder(woissndes) 
05.
Set colSubfolders = objFolder.Subfolders 
06.
For Each objSubfolder in colSubfolders 
07.
 '   Wscript.Echo objSubfolder.Name 
08.
    zaehler = -1 
09.
    For Each File in objSubfolder.Files 
10.
            if objSubfolder.Files.Count = 1 then 
11.
               zusatz = "" 
12.
            else 
13.
                zaehler = zaehler+1 
14.
                zusatz = "_" & zaehler 
15.
            end if 
16.
          '   Wscript.Echo File.Name 
17.
            quelle = woissndes & "\" & objSubfolder.Name & "\" 
18.
            objFSO.MoveFile quelle & File.Name, quelle & objSubfolder.Name & zusatz & neuesformat 
19.
            filezaehler = filezaehler+1 
20.
    Next 
21.
ordnerzaehler = ordnerzaehler+1 
22.
Next 
23.
Wscript.Echo filezaehler & " Dateien in " & ordnerzaehler & " Ordnern umbenannt, Honey!"
btw: Du bist knapp am Wort (jetzt schreib ichs) UMBENENNEN oder noch besser UMBENNEN vorbeigeschrammt
aber bei dieser Auflage sollte man einen entsprechenden Eintrag im Index nicht ungenützt verstreichen lassen...
@Biber: auf gehts!

lg
Edi,
der Mann, der Ferien sehr zu schätzen weiss UND sich über die entsprechenden Wünsche in der letzten Woche von Bastla noch mehr freute Danke!
Bitte warten ..
Mitglied: timlagezz
31.03.2010 um 15:53 Uhr
hat beides super funktioniert vielen dank !!
Bitte warten ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(3)

Tipp von agowa338 zum Thema Windows 10 ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
gelöst Server erkennt Client nicht wenn er ausserhalb des DHCP Pools liegt (28)

Frage von Mar-west zum Thema LAN, WAN, Wireless ...

Outlook & Mail
Outlook 2010 findet ost datei nicht (18)

Frage von Floh21 zum Thema Outlook & Mail ...

Windows Server
Server 2008R2 startet nicht mehr (Bad Patch 0xa) (18)

Frage von Haures zum Thema Windows Server ...