Ordner umbenennen nach Inhalt

@echo off

setlocal EnableExtensions, EnableDelayedExpansion

rem loop for all txt files in all subfolders

for /R %%i in (*.txt) do (

  rem assign filename as new path

  set npath=%%~ni

  rem remove last \ from oldpath

  set opath=%%~dpi

  set opath=!opath:~0,-1!

  echo move /Y "!opath!" "!npath!"

  move /Y "!opath!" "!npath!"

)

endlocal

goto :eof

using System.IO;

string sourcedirectory = [Verzeichnis mit den 534 Unterverzeichnissen];

foreach (string subdir in Directory.GetDirectories(sourcedirectory))

{

 string newname = Directory.GetFiles(subdir)[0];

 int i0 = newname.LastIndexOf('\\') + 1;

 int i1 = newname.IndexOf('.');

 newname = newname.Substring(i0 , i1 - i0);

 newname = subdir.Substring(0, subdir.LastIndexOf('\\') + 1) + newname;

 Directory.Move(subdir, newname);

}

string sourcedirectory = FilePath; // FilePath = cmd-Eingabe

foreach (string subdir in Directory.GetDirectories(sourcedirectory))

{

string FileName = "";

string[] files = Directory.GetFiles(subdir);

for (int i = 0; i < files.Length; i++)

{

    if (files[i].EndsWith(".txt"))

    {

  FileName = files[i];

  File = new FileInfo(FileName);

  FileName = File.Name; // FileInfo mit Dateiname ohne Pfadangabe

  FileName = FileName.Replace(".txt", ""); // Dateierweiterung löschen

  break;

    }

}

string newDir = FilePath + FileName; // FilePath = cmd-Eingabe (Übergeordnetes Verzeichnis)

Directory.Move(subdir, newDir);

}