Fileexsists verkürzen

Albeck

Hi, ich hab ewig viele Abfragen in unterschiedlichen Ordner ob jeweils eine *.*p* Datei existiert. Diese Liste wird immer länger und länger und ich habe mich gefragt ob ich das nicht irgendwie intelligenter lösen kann. hab aber keine Idee da sich ja der Pfad auch immer ändert...Vllt habt ihr ja eine Idee...

Hier mal der Code

Code

Const $Basisdir = "D:\Workflow\"
If FileExists ($Basisdir&"10x16\10x16.Layout\*.p*" ) Then 
	$type="10x16"
	$workflowtype = "Layout"
	ProcessFile ($Type)
EndIf 
If FileExists ($Basisdir&"10x16\10x16.Vorschau\*.p*" ) Then
	$type = "10x16"
	$workflowtype = "Vorschau"
	ProcessFile ($Type)
EndIf
If FileExists ($Basisdir&"10x16\10x16.U4\*.p*" ) Then
	$type = "10x16"
	$workflowtype = "U4"
	ProcessFile ($Type)
EndIf
If FileExists ($Basisdir&"10x16\10x16.Druck\*.p*" ) Then
	$type = "10x16"
	$workflowtype = "Druck"
	ProcessFile ($Type)
EndIf
;12x19
If FileExists ($Basisdir&"12x19\12x19.Layout\*.p*" ) Then 
	$type="12x19"
	$workflowtype = "Layout"
	ProcessFile ($Type)
EndIf
If FileExists ($Basisdir&"12x19\12x19.Vorschau\*.p*" ) Then
	$type = "12x19"
	$workflowtype = "Vorschau"
	ProcessFile ($Type)
EndIf
If FileExists ($Basisdir&"12x19\12x19.U4\*.p*" ) Then
	$type = "12x19"
	$workflowtype = "U4"
	ProcessFile ($Type)
EndIf
If FileExists ($Basisdir&"12x19\12x19.Druck\*.p*" ) Then
	$type = "12x19"
	$workflowtype = "Druck"
	ProcessFile ($Type)
EndIf
;etc....die Liste ist noch viiieeel länger....

Alles anzeigen

MfG Albeck

i2c

Schreib die Dateipfade in ein Array und durchlauf es in einer FOR Schleife.

edit: Den Wert für deine $workflowtype Variable könntest du dann über regex aus dem Pfad holen oder über eine IF StringInStr() setzen.

Milla

Beliebig erweiterbar:

[autoit]

Const $Basisdir = "D:\Workflow\"
Global $typeArr[4], $sizeArr[2]

[/autoit][autoit][/autoit][autoit]

$sizeArr[0] = "10x16"
$sizeArr[1] = "12x19"

[/autoit][autoit][/autoit][autoit]

$typeArr[0] = "Layout"
$typeArr[1] = "Vorschau"
$typeArr[2] = "U4"
$typeArr[3] = "Druck"

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

For $j = 0 To UBound($sizeArr) - 1 Step 1
For $i = 0 To UBound($typeArr) - 1 Step 1
If FileExists($Basisdir & $sizeArr[$j] & "\" & $sizeArr[$j] & "." & $typeArr[$i] & "\*.p*") Then
$type = $sizeArr[$j]
$workflowtype = $typeArr[$i]
ProcessFile($type)
EndIf
Next
Next

[/autoit]

Albeck

Milla, die Lösung gefällt mir!

Btw: Da ist es wieder, vermeidung von Codedopplung durch Schleifen

Danke!