Programalama > ASP

'
' Server uzerince ms word bulunmasi gerekir :))
' RTF ve DOC formatlari icin calisiyor
' RTFFileNAme ile verilen dosyayi cHtmlFile ile verilen dosyaya kaydeder
' ------------------------------------------------------------------------
Public Function RTF2HTML(cRtfFile, cHtmFile)
   Dim wApp                 
   dim fileObj 
   
   Set fileObj = CreateObject("Scripting.FileSystemObject")
   if fileOBJ.FileExists(cRTFFile) = False Then 
      RTF2HTML = FALSE
   Else
      Set wApp = CreateObject("Word.Application")
      wApp.Visible = True
      wApp.ShowMe()
      wApp.Documents.Open(cRTFFile)
      wApp.Documents(1).Activate
      call wApp.Documents(1).saveas(cHtmFile,8)
      call wApp.Documents.close()
      wApp.Quit
      RTF2HTML = TRUE
   End if
   
   Set wApp = Nothing     
   Set fileObj = Nothing
End Function