Abfrage, ob Datei existiert
Verfasst: Fr, 28.05.2004 09:23
Hi, ich möchte eine Sub in der geprüft wird, ob eine Datei bereits vorhanden ist. Ich habe dies wie folgt versucht, funktioniert leider nicht so. Wo liegt mein Denkfehler?
sub ist_datei_vorhanden
dim oDoc as object
dim sURL as string
sURL = "file:///c:/_temp/test.sxc"
oDoc = StarDesktop.sURL '!!! funktioniert so nicht; Laufzeitfehler
'geplante Abfrage:
'IF Datei mit dem Namen aus sURL besteht THEN
'msgbox "Datei vorhanden" ELSE
'msgbox "Datei nicht vorhanden" END IF
end sub
gruss Wolf
sub ist_datei_vorhanden
dim oDoc as object
dim sURL as string
sURL = "file:///c:/_temp/test.sxc"
oDoc = StarDesktop.sURL '!!! funktioniert so nicht; Laufzeitfehler
'geplante Abfrage:
'IF Datei mit dem Namen aus sURL besteht THEN
'msgbox "Datei vorhanden" ELSE
'msgbox "Datei nicht vorhanden" END IF
end sub
gruss Wolf