[mention]divanebaba[/mention] Klasse! :dance: Danke für die schnelle und unkomplizierte Hilfe. :bravo:
Doch so einfach als Loop :oops: hätte man selbst drauf kommen können aber naja manchmal denkt man zu Kompliziert. :lol: :crazy:

FileSelectFolder, OutputVar
Loop, Files, %OutputVar%\*.*, F
	Anzahl := A_Index
msgbox % "Anzahl Dateien = " . Anzahl
return

Hallo.
Versuche es mal damit[code]FileSelectFolder, OutputVar
Loop, Files, %OutputVar%\*.*, F
Anzahl := A_Index
msgbox % "Anzahl Dateien = " . Anzahl
return[/code]

EDIT: Kosmetik

Send ^{a}^{c}
ClipWait
Datei_Liste := Clipboard . "`r`nENDE"
Loop, Parse, Datei_Liste, `n
	if (A_Index = 1)
		Datei_Name := SubStr(A_LoopField, InStr(A_LoopField, "\",, 0)+1), Datei_Pfad := StrReplace(A_LoopField, "`r")
	else if (A_LoopField = "ENDE")
		Datei_Anzahl := A_Index -1

Hey Leute hab nur eine kurze Frage.
Ich wollte ein Skript von mir Optimieren und bin dabei über eine Stelle gestolpert bei der ich mir denke es muss doch eine Souveräne Lösung geben.

Und zwar, gibt es eine möglichkeit die Anzahl der vorhandenen Dateien in einem Ordner zu ermitteln?
Am besten noch im Hintergrung ohne das der dafür Ordner geöffnet werden muss?

Bisher habe ich es so gelöst, das ich alle Dateien einfach Kopiere und dann [kbd]Parse[/kbd] um per [kbd]A_Index[/kbd] die Menge zu ermitteln.
Es funktioniert auch, aber halt nicht im Hintergrung.
Und bei vielen Dateien, kann das Skript schon ziemlich zutun haben alles zu Parsen.
[code]Send ^{a}^{c}
ClipWait
Datei_Liste := Clipboard . "`r`nENDE"
Loop, Parse, Datei_Liste, `n
if (A_Index = 1)
Datei_Name := SubStr(A_LoopField, InStr(A_LoopField, "\",, 0)+1), Datei_Pfad := StrReplace(A_LoopField, "`r")
else if (A_LoopField = "ENDE")
Datei_Anzahl := A_Index -1[/code]