Hi Folks,
ich versuche schon seit ein paar Stunden eine txt Datei, welche auf meinen Server liegt, einzulesen. Wenn ich die Datei lokal verwende, funktioniert es problemlos. Da ich ein VB-Blank bin, wäre eine detailierte Hilfe sehr schön.
Dim pfad, FileLength, inhalt
pfad = "http://www.4uweb.de/badwords\smut.txt" 'FUNKTIONIERT NICHT
pfad = "t:\smut.txt" 'FUNKTIONIERT
Open pfad For Input As #1 ' Datei zum Einlesen öffnen.
FileLength = LOF(1)
inhalt = Input(FileLength, #1)
Close #1
MsgBox inhalt
TNX & CU Fr@nkie
Nachtrag
Ouups…
das ganze sollte in Outlook VBA funktionieren um eine Badword-Liste zu integrieren.
Hi Frankie,
ich versuche schon seit ein paar Stunden eine txt Datei,
welche auf meinen Server liegt, einzulesen. Wenn ich die Datei
lokal verwende, funktioniert es problemlos. Da ich ein
VB-Blank bin, wäre eine detailierte Hilfe sehr schön.
Dim pfad, FileLength, inhalt
pfad = ‚http://www.4uweb.de/badwords\smut.txt‘
'FUNKTIONIERT NICHT
pfad = ‚t:\smut.txt‘ 'FUNKTIONIERT
Open pfad For Input As #1 ’ Datei zum Einlesen öffnen.
FileLength = LOF(1)
inhalt = Input(FileLength, #1)
Close #1
MsgBox inhalt
ja, klar. 
Mit ‚Open‘ kommst Du nicht ins Internet.
Ich habe mal im Archiv gesucht …
/t/vba-excel-internet-seiten/715166/2
Gruß, Rainer
hallo
muss es unbedingt vb sein? mit perl ist es ein klax, auf webseiten zuzugreifen. oder auch java.
lg
erwin
Hallo Rainer,
zu diesem Ergebniss (vom Archiv) kam ich schon wenn ich den Excel Macrorecorder einschalte und eine Externe Datenquelle/Website auswähle und mir dann den Quelltext ansehe. Nur ich brauche ja kein Excel-Sheet sondern die Daten in Outlook.
Wenn nun jemand kein Office sondern nur Outlook besitzt, ist dies danneher suboptimal.
CU Fr@nkie