Hallo,
kann mir jemand bei folgendem Problem helfen?
Ich möchte feststellen, ob eine spezielle Datei vorhanden ist.
Wenn sich die Datei auf der Festplatte befindet, ist das auch kein Problem.
Ich möchte allerdings feststellen, ob diese Datei unter einer Webadresse vorhanden ist (http://www…). Und das funktioniert leider nicht.
Hat jemand eine Idee?
Beispiel:
_________________________________________
Sub filevorhanden()
Dim fileok As Boolean
Dim fn As String
'fn = „http://www.adresse.de/file.xls“
fn = „D:\file.xls“
'Feststellen, ob das File existiert
Set fs = CreateObject(„Scripting.FileSystemObject“)
fileok = fs.fileexists(fn)
If fileok = False Then MsgBox „File existiert nicht!“
End Sub
Das Öffnen einer Datei im Web funktioniert jedoch einwandfrei!
Beispiel:
____________________________________________
Sub fileoeffnen()
Dim fn As String
fn = „http://www.adresse.de/file.xls“ 'Datei im Web
'fn = „D:\file.xls“ ’ Datei auf Festplatte
On Error GoTo Fehlerzeigen
Workbooks.Open filename:=fn
GoTo Ende
Fehlerzeigen:
MsgBox „Datei nicht vorhanden!“
Ende:
End Sub
____________________________________________
Wenn also das Öffnen klappt, dann müsste das bloße Feststellen, ob eine Datei existiert, doch eigentlich auch irgendwie funktionieren.
Ich bin für jeden Tipp dankbar.
Julia