Hallo,
Ich wollte mit Asp und Vbscript eine Worddatei öffnen. Da ich keinen statischen Pfad habe, sondern eine Textdatei die ausgelesen wird um an die doc-Datei zu kommen, habe ich es so gelöst:
<HTML>
<HEAD>
</HEAD>
<BODY>
<BR>
<script Language="VBScript">
<!--
Function TextStream
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim fso, f, ts
Set fso = Server.CreateObject("Scripting.FileSystemObject")
If (fso.FileExists ("http://10.13.40.150/Hilfsdateien/Path.txt"))Then
msgbox "Ist da! Yeah!"
Else
msgbox "sch...!"
End If
Set f = fso.GetFile(Server.MapPath("\Hilfsdateien\Path.txt"))
Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
TextStream = ts.ReadLine
ts.Close
End Function
function load_word(mode)
Dim pfad
Const ForReading = 1
'mode 1 = als dot öffnen
Set appWord = CreateObject("Word.Application")
'Anzeige Word
appWord.WindowState = 0
appWord.Height = 600
appWord.Width = 800
appWord.Left = 40
appWord.Top = 20
appWord.Visible = TRUE
'Dokument öffnen
'mode 1 = dot-Datei
if mode = 1 then appWord.Documents.Open (TextStream) end if
'Schließen Objekt-Variable
Set appWord = Nothing
end function
-->
</script>
<a href="#" onclick="load_word '1'" target="_top">WORDVORLAGE</a>
<BR>
</BODY>
</HTML>
Ich habe das von
http://www.aspheute.com/artikel/20020122.htm
größtenteils übernommen.
Mit dem Unterschied dass ich die Funktion Textstream dazu gemacht habe.
Wenn ich es aber ausführe dann kriege ich die Fehlermeldung:
Objekt erforderlich:'Server'
Dabei habe ich es doch:
Server.CreateObject("Scripting.FileSystemObject")
Kann mir jmd. sagen was ich falsch gemacht habe????
Word wird geöffnet, aber die doc-Datei nicht! Also er findet den Pfad nicht :-(
Gruss
Fabi
