Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Tipp: Viele Dateien erzeugen (fürs testen) (https://www.delphipraxis.net/202631-tipp-viele-dateien-erzeugen-fuers-testen.html)

MicMic 23. Nov 2019 19:25


Tipp: Viele Dateien erzeugen (fürs testen)
 
Hallo,
manchmal will man Datei-Funktionen etc. testen und auch die Schnelligkeit prüfen.
Mit der Batch-Datei lassen sich jede Menge Dateien anlegen. Kann man auch immer wieder starten und neue erstellen lassen.
Code:
@echo off
setlocal EnableDelayedExpansion
for /l %%x in (1, 1, 100000) do (
fsutil file createnew %%x!random!!random!!random!!random!.!random!!random! !random!
)
Schöner wäre es, wenn Random irgendwie eine registrierte Dateiendung aus der Registry aussuchen würde. Da müsste man ein kleines Delphi Prog schreiben. Bei dem obigen Code sind es ja nur Zufallszahlen. Aber so ist das mal schnell gemacht mit Batch.

Vielleicht braucht es jemand ja mal

Gruß Mic

Dalai 23. Nov 2019 22:36

AW: Tipp: Viele Dateien erzeugen (fürs testen)
 
FYI: Schneller ist es, keine externen Programme zu rufen, z.B. so
Code:
@echo off
for /L %%J IN (1,1,100000) DO copy /-Y NUL %%J%RANDOM%.txt >NUL
Denn einerseits ist das Forken von Prozessen teuer, und zum anderen braucht fsutil sogar Adminrechte.

Grüße
Dalai

MicMic 23. Nov 2019 23:39

AW: Tipp: Viele Dateien erzeugen (fürs testen)
 
So oder so... ich hab mal 136557 Dateien erzeugt :)
Und noch ein Tipp:

ren *.*15 *.exe
ren *.*1 *.dll
ren *.*20 *.pif

usw.

Damit kann man dann ein wenig Zuordnungen schaffen. Je nach API Funktion usw. kann man dann verschiedenes testen.


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:08 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz