Aus Dateiname Ordner erstellen

DirCreate ?

Nun, ebenso kurz wie die Frage: mit DirCreate.

Wenn Du mehr Informationen lieferst, kann man auch mehr Hilfe anbieten.

- Welche Dateinamen?

- Mit/ohne Dateiendung?

- Wo sollen die Ordner erstellt werden?

- Als Unterordner von welchem Ordner?

- Dynamisch oder nur einmalig?

Also 1 Ordner je Datei, wobei der Ordnername dem Dateinamen entspricht (ohne Endung). Richtig?

(Nein, ich werde den Sinn dahinter jetzt erst mal nicht hinterfragen)

Liegen alle diese Dateien, in ein und demselben Ordner?

So habe ich es verstanden, daher hier eine quick and dirty Lösung:

Opt('MustDeclareVars', 1)

#include <MsgBoxConstants.au3>

CreateStructure()

Func CreateStructure()
Local $sFileName = "", $iResult = 0, $target
Local Const $hSearch = FileFindFirstFile("*.*")
	If $hSearch = -1 Then
		MsgBox($MB_SYSTEMMODAL, "", "Error: No files/directories matched the search pattern.")
        Return False
	EndIf

	While 1
        $sFileName = FileFindNextFile($hSearch)
		If @error Then ExitLoop

		If ($sFileName <> @ScriptName) then
			$target = @ScriptDir & '/' & StringLeft($sFileName, StringinStr($sFileName, '.') - 1) & '/'
			If not FileExists($target) then DirCreate($target)
			FileMove(@ScriptDir & '/' & $sFileName, $target & $sFileName)
		EndIf
	WEnd
	FileClose($hSearch)
EndFunc

Edit: Jetzt mit flexibler Dateiendung und nicht mehr ganz so QuD

Moombas aufpassen: Dateiendungen müssen nicht 3 Zeichen lang sein (z.b. 7z, jpeg etc.).

Daher lieber die Position des letzten Punktes im Dateinamen mit StringInStr() ermitteln und diese als Größenangabe beim splitten verwenden.

Wie gesagt QuD

Hab es mal angepasst

Bleibt noch die Möglichkeit, wenn Punkte im Dateinamen verwendet wurden (z.B. test.txt.old)

Das habe ich dann hier mal mit berücksichtigt:

Opt('MustDeclareVars', 1)

#include <MsgBoxConstants.au3>

CreateStructure()

Func CreateStructure()
Local $sFileName = "", $iResult = 0, $target
Local Const $hSearch = FileFindFirstFile("*.*")
	If $hSearch = -1 Then
		MsgBox($MB_SYSTEMMODAL, "", "Error: No files/directories matched the search pattern.")
        Return False
	EndIf

	While 1
        $sFileName = FileFindNextFile($hSearch)
		If @error Then ExitLoop

		If ($sFileName <> @ScriptName) then
			$target = @ScriptDir & '\' & StringLeft($sFileName, StringinStr($sFileName, '.', Default, -1) - 1) & '\'
			If not FileExists($target) then DirCreate($target)
			FileMove(@ScriptDir & '\' & $sFileName, $target & $sFileName)
		EndIf
	WEnd
	FileClose($hSearch)
EndFunc

Edit: Corrected the slashes into correct direction.

Zitat von Moombas

Bleibt noch die Möglichkeit, wenn Punkte im Dateinamen verwendet wurden (z.B. test.txt.old)

Deshalb schrieb ich ja: "den letzten Punkt". Mit StringInStr() machbar indem man den occurance-Parameter auf -1 setzt.

StringSplit braucht man hierfür nicht und kann es in einem Einzeiler erledigen.

Hast du recht an den Parameter occurance hatte ich nicht gedacht XD, habs korrigiert.
Brauche das aber auch zu selten

Bitte das Script posten, bei dem diese Fehlermeldung auftritt!

Moombas :

Ein weiterer Sonderfall wäre, dass ein Dateiname keine Extension besitzt. Dann kann kein gleichnamiges Unterverzeichnis angelegt werden.

Nur eine kleine Alternative zu :

$target = @ScriptDir & '/' & StringLeft($sFileName, StringinStr($sFileName, '.', Default, -1) - 1) & '/'

Hier kann z.B. auch ein regulärer Ausdruck verwendet werden :
$target = @ScriptDir & '\' & StringRegExpReplace($sFileName, '(.*)\..*', "$1") & '\'

Zitat von Abraham

"Element wurde nicht gefunden"

Bau eine Überprüfung ein, ob der erstellte Ordner existiert (ggf. in Schleife bis er existiert) und verschiebe die Datei erst dann.