' ***************************************************
'
' VBScript generated by SystemScripter 5.0
' www.scriptinternals.de
'
' Author: Marco Weitzel
' Date:   Montag, 11. Dezember 2006
' Version: 1.1
'
' ***************************************************
 
Dim LWPApp,WSHShell,fso
 
Set objvar = CreateObject("shell.application")
Set WSHShell = CreateObject ("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set LWPApp = CreateObject("WordPro.Application")
 
Set abf = objvar.BrowseForFolder(0,"Bitte einen Ordner auswählen ab dem dann" & _
  "alle Dateien umgestellt werden.",0)
 
abfrage = abf.self.path
 
If abfrage <> "" Then
 
 
If fso.FileExists( abfrage ) Then abfrage = fso.GetParentFolderName( abfrage )   
 
 Text = ""  
 
Set datei = fso.Createtextfile(abfrage & "\dateiliste.txt",True)
 
Set objexec = WSHShell.exec("cmd.exe /c dir " & abfrage & "\*.* /s /b" )
 
Do While objexec.status = 0
 tmp = objexec.StdOut.Readall
 If tmp <> "" Then
 datei.writeline ASCII2ANSI(tmp)
 End If
Loop
 
On Error Resume Next
Set dat = fso.OpenTextFile(abfrage & "\dateiliste.txt",1,True,0)
On Error Goto 0
 
Do Until dat.AtEndOfStream
input = dat.ReadLine
 
If fso.FileExists( input ) Then 
 
dweiter = UCase(Right(input,4))
possl = InStrRev(input,"\")
gstring = Len(input)
dname = Right(Left(input,(InStr(input,"."))-1),gstring-possl-4)
dpfad = Left(input,possl-1)
If Not fso.FileExists( dpfad & "\" & dname + ".doc") Then
   If dweiter = ".LWP" OR dweiter = ".SAM" Then
    With LWPApp
    .Visible = False
    .OpenDocument dname & dweiter,dpfad
    .saveas dname + ".doc",dpfad,"MS Word 2000"
    .Parent.Quit
    End With 
    Else
    End If
    Else
    End If 
Else
End If 
   Loop
  dat.Close
Set dat = Nothing 
 
End If
 
Function ASCII2ANSI(Text)
	temp = Replace(Text, Chr(132), Chr(228))
	temp = Replace(temp, Chr(129), Chr(252))
	temp = Replace(temp, Chr(142), Chr(196))
	temp = Replace(temp, Chr(154), Chr(220))
	temp = Replace(temp, Chr(153), Chr(214))
	temp = Replace(temp, Chr(148), Chr(246))
	temp = Replace(temp, Chr(225), Chr(223))
	ASCII2ANSI = temp
End Function