Datei öffnet sich nicht
01.12.2003 11:09:26
Micha
endung = LCase(Right(ZuOeffnendeDatei(1), 3))
name = LCase(ZuOeffnendeDatei(1))
If endung = "doc" Then
Call WORD(name)
End If
Sub WORD(ByVal d As String)
Dim olApp As Object
Set olApp = CreateObject("Word.Application")
olApp.Workbooks.Open "d"
End Sub
Micha