Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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

Die 10 neuesten Dateien in Ordnerstruktur finden

Frage Entwicklung Batch & Shell

Mitglied: BurnBaby

BurnBaby (Level 1) - Jetzt verbinden

25.03.2013, aktualisiert 26.03.2013, 1271 Aufrufe, 5 Kommentare

Hallo zusammen,
wie schon im Titel gesagt, möchte ich in einer Textdatei die 10 neuesten Dateien in einer
Ordnerstruktur eintragen.
Nun habe ich schon die letzten Tage hier im Forum danach gesucht und habe eines gefunden gehabt,
dass in diese Richtung ging, dies habe ich inzwischen etwas abgeändert.
Mir wird nun in einer Datei schon die neuesten 10 Dateien eingetragen,
nur sucht er nur in den ersten Unterordnern nach Dateien.
Das heißt er sucht nicht nach Dateien im Hauptordner und nicht nach Dateien die nach dem ersten Unterordner kommen.
Dies hätte ich aber noch gerne.
Einer einen Vorschlag für mich ?

Gruß
Andreas

01.
@echo off & setlocal 
02.
set "StartDir=I:\Engineering" 
03.
 
04.
set T=DirList.txt 
05.
set T2=DirListSort.txt 
06.
for /d %%d in ("%StartDir%"\*.*) do ( 
07.
    for /f "delims=" %%i in ('dir /b /a-d "%%d\*.*" 2^>nul') do call :ProcessFile "%%d\%%i" 
08.
09.
sort /R %T% >> %T2% 
10.
for /f "tokens=1,* delims=:" %%i in ('findstr /n $ %T2%') do @( 
11.
        for /L %%a in (1,1,10) do @if %%i==%%a @echo %%i %%j 
12.
13.
del %T% 
14.
del %T2% 
15.
pause 
16.
goto :eof 
17.
 
18.
:ProcessFile 
19.
set D=%~t1 
20.
>>%T% echo %D:~6,4%%D:~3,2%%D:~,2%%D:~11,2%%D:~14,2% %1 
21.
goto :eof
Mitglied: bastla
25.03.2013 um 14:49 Uhr
Hallo BurnBaby und willkommen im Forum!

Ersetze die Zeilen 6 bis 8 durch
for /f "delims=" %%i in ('dir /s/b /a-d "%StartDir%" 2^>nul') do call :ProcessFile "%%i"
- und verwende beim Posten von Batches oder Textbeispielen bitte (geht auch noch nachträglich) "Code"-Formatierung ...

Grüße
bastla
Bitte warten ..
Mitglied: BurnBaby
26.03.2013 um 09:48 Uhr
Hallo bastla,
habe es nun ersetzt, nun bekomme ich aber keine Ausgabe mehr.

01.
@echo off & setlocal 
02.
set "StartDir=I:\Engineering" 
03.
 
04.
set T=DirList.txt 
05.
set T2=DirListSort.txt 
06.
for /f "delims=" %%i in ('dir /s/b /a-d "%StartDir%" 2^>nul') do call :ProcessFile "%%i" 
07.
 
08.
sort /R %T% >> %T2% 
09.
for /f "tokens=1,* delims=:" %%i in ('findstr /n $ %T2%') do @( 
10.
        for /L %%a in (1,1,10) do @if %%i==%%a @echo %%i %%j 
11.
12.
del %T% 
13.
del %T2% 
14.
pause 
15.
goto :eof 
16.
 
17.
:ProcessFile 
18.
set D=%~t1 
19.
>>%T% echo %D:~6,4%%D:~3,2%%D:~,2%%D:~11,2%%D:~14,2% %1 
20.
goto :eof
Bitte warten ..
Mitglied: bastla
26.03.2013 um 11:39 Uhr
Hallo BurnBaby!

Kann ich nicht nachvollziehen - funktioniert bei mir mit dem geposteten Code ...

Du könntest mal direkt in der CMD-Shell mit
dir /s/b/a-d I:\Engineering"
prüfen, welche Dateien gefunden werden ...

Ansonsten lass mal die beiden Varianten jeweils mit "echo on" anstatt "echo off" laufen - zur besseren Nachvollziehbarkeit kannst Du (unter der Annahme, dass die Batchdatei "D:\Latest10.cmd" heißt) mit
D:\Latest10.cmd>D:\Latest10_Log.txt
die Ausgabe in eine Datei schicken (auf die Pause in Zeile 14 solltest Du dann besser verzichten).

Grüße
bastla
Bitte warten ..
Mitglied: BurnBaby
26.03.2013 um 12:03 Uhr
Ja ok, es geht, der Ordner war nur um einiges Größer als gedacht.
Danke dir
Bitte warten ..
Mitglied: Endoro
27.03.2013, aktualisiert 28.03.2013
Hallo BurnBaby, ich weiss, der Thread ist schon "gelöst", aber vielleicht kann ich dich ja mit meinem Fünfzeiler erfreuen:

01.
@echo off &setlocal 
02.
set /a count=0, files=0 
03.
for /f %%i in ('dir /b /s /a-d') do set /a count+=1 
04.
set /a count-=10 
05.
for /f "tokens=2*" %%a in ('^(for /f "delims=" %%i in ^('dir /a-d /b /s'^) do @for /f "tokens=1-4delims=. " %%j in ^("%%~ti"^) do @echo %%l.%%k.%%j %%m "%%~fi"^) ^|sort^|more +%count%^|sort /r') do set /a files+=1& call echo.%%files%% %%~tb %%~fb
Warum das so funktioniert? Keine Ahnung!


bb
Bitte warten ..
Ähnliche Inhalte
Windows Server
gelöst Neuer DC + Ordnerstruktur (13)

Frage von KMUlife zum Thema Windows Server ...

Rechtliche Fragen
gelöst Vernatwortlichkeit Ordnerstruktur (5)

Frage von Peterz zum Thema Rechtliche Fragen ...

Windows 10
gelöst Windows 10: "Wird neu gestartet" (7)

Frage von FSX2010 zum Thema Windows 10 ...

Windows Server
gelöst Computer finden den neuen WSUS nicht (41)

Frage von PizzaPepperoni zum Thema Windows Server ...

Neue Wissensbeiträge
Humor (lol)

Wohnt jemand in Belgien und kann nicht mehr ruhig ausschlafen?

(5)

Information von LordGurke zum Thema Humor (lol) ...

Sicherheits-Tools

Trendmicro OSCE und das Fall Creators Update Win10 RS3

(3)

Information von Henere zum Thema Sicherheits-Tools ...

Microsoft Office

Text in Zahlen umwandeln

Tipp von logische zum Thema Microsoft Office ...

Heiß diskutierte Inhalte
Windows Server
Gruppenrichtlinie greift nicht zu! (24)

Frage von Syosse zum Thema Windows Server ...

Hosting & Housing
Mailserver Software Empfehlungen (21)

Frage von sunics zum Thema Hosting & Housing ...

Voice over IP
DeutschlandLAN IP Voice Data M Premium, Erfahrung mit Faxgeräte? (16)

Frage von liquidbase zum Thema Voice over IP ...