Einen Ordner suchen

ralle0507

Hallo !

Ich bin noch recht neu bei Autoit, denke aber, dass ich es schnell erlerne.
Nun bin ich allerdings an einem Punkt, wo ich nicht mehr weiterweiß.
Ich habe folgendes Problem.

Ich muss eine Configdatei ändern, leider befindet die sich in einem Ordner mit dem Namen (z.B.) "c:\programm\configs_kunde\config.ini", wobei das "kunde" sich natürlich ändert.
Gibt es irgendeine Art von Platzhalter, dass ich folgendes machen könnte ? "c:\programm\configs_????\config.ini"
Es ist zum Heulen.... Ich bekomme das nicht hin..

Ralf

shadow667

Mach es wie folgt:

[autoit]

$Kunde = "kunde"
$Pfad = "c:\programm\configs_"& $Kunde &"\config.ini"

[/autoit]

ralle0507

Danke für Deine Antwort.
Es handelt sich um einen Installer und Konfigurator.
Leider weiss ich $Kunde = "kunde" nicht vorher.
Vielleicht kann man irgendwie nach dem Ordner "c:\programm\configs_" suchen und dann mit dem Suchergebnis (z.B. "c:\programm\configs_rewe" weiterarbeiten..

**Schnitzel**

Mit FileFindFirstFile/FileFindNextFile oder _FileListToArray kannst du dir die unterordner raussuchen lassen
Dann kannst du es so machen wie Shadow667 beschrieben hat

XovoxKingdom

Da wir hier nicht in H&Ü sind, ist das hier eine mögliche Lösung:

Spoiler anzeigen

[autoit]

#include <File.au3>
#include <Array.au3>
#include <MsgBoxConstants.au3>

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

$path = "D:\dummy"

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

; Listet alle Ordner mit dem gegebenen Schema auf
Local $aFileList = _FileListToArray($path, "configs_*", 2)
If @error = 1 Then
MsgBox($MB_SYSTEMMODAL, "", "Der Dateipfad ist ungültig.")
Exit
EndIf
If @error = 4 Then
MsgBox($MB_SYSTEMMODAL, "", "Es wurden keine Ordner gefunden.")
Exit
EndIf

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

;~ _ArrayDisplay($aFileList, "$aFileList") ; Anzeige aller Ordnernamen

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

$pathList = ""
For $i = 1 To $aFileList[0]
$file = $path & '\' & $aFileList[$i] & '\' & "configs.ini"
If Not FileExists($file) Then
MsgBox(0, "Achtung!", "Die folgende Datei existiert nicht! : " & @CRLF & $file)
Else
$pathList &= $path & '\' & $aFileList[$i] & '\' & "configs.ini" & @CRLF
EndIf
Next
MsgBox(0, "Gefundene Dateien", $pathList)

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

EDIT : Danke Schnitzel für das Lösen des Backslashproblems

ralle0507

Danke !
Hat mir sehr geholfen.

**Schnitzel**

Achtung hier hat wiedermal ein Forenbug zugeschlagen. XovoxKingdom: Ja der ist schon bekannt
In Zeile 23 und 27 muss ein Backslash in die alleinstehenden Anführungszeichen
Die ersten kannst du dir allerdings auch sparen wenn du $path gleich mit abschließenden Backslash initialisierst