ordnerexistenz prüfen

[herkules]

hallo!
hiermit kann die existenz eines ordners geprüft werden. wenn erwünscht kann der ordner gleich gelöscht werden.

--*******************************
-- Existenz eines Ordners pruefen
--*******************************

-- Aufruf
set Variabel to |FolderExists|("String:Input:", true)

-- Ordner-Existenz pruefen
--************************
on |FolderExists|(Input, Del)

-- Flag setzen
set Output to false

-- Input konvertieren
set Input to Input as string

-- pruefen
tell application "Finder"

-- existent?
if exists folder Input then

-- Flag setzen
set Output to true

-- loeschen, wenn gewuenscht
if Del then
delete folder Input
end if
end if

end tell

-- Wert zurueckgeben
return Output

end |FolderExists|
_________________
gruss christos;-)

[liemmayer]

Ja, es kann entfernt werden!
_________________
Die Hauptsache ist, Zeit zu finden, Ihre Ängste vor dem Scheitern zu überwinden und Skeptiker zu ignorieren.