Calling VBS from ASP.NET(VB)

I have a vbs script that converts all word (*.doc) document from word to html, I need somebody to write an code to be able to pass the word document to the vbs file. then conversion will take place

Tip - Calling a .vbs file from

Passing parameter to .vbs file via

This project will fit a first time bidder, the code is below, I will only pay $30.00 max

So the first person to show me working code will get the 30 bucks, PLS pls only contact me, If u have a working solution.



Option Explicit

'declare all variables

Dim objWord

Dim oDoc

Dim objFso

Dim colFiles

Dim curFile

Dim curFileName

Dim folderToScanExists

Dim folderToSaveExists

Dim objFolderToScan

Dim strDocName

Dim intPos

'set some of the variables

folderToScanExists = False

folderToSaveExists = False

Const wdSaveFormat = 10 'for Filtered HTML output

Const wdFormatText = 10

'*******my MSN IS obinna_ekeAThotmialDOTcom*************************************

'change the following to fit your system

Const folderToScan = "C:Documents and SettingsAdministrator.SERVERDesktopmagic"

Const folderToSave = "C:Documents and SettingsAdministrator.SERVERDesktopmagic"


'Use FSO to see if the folders to read from

'and write to both exist.

'If they do, then set both flags to TRUE,

'and proceed with the function

Set objFso = CreateObject("Scripting.FileSystemObject")

If [url removed, login to view](folderToScan) Then

folderToScanExists = True


MsgBox "Folder to scan from does not exist!", 48, "File System Error"

End If

If [url removed, login to view](folderToSave) Then

folderToSaveExists = True


MsgBox "Folder to copy to does not exist!", 48, "File System Error"

End If

If (folderToScanExists And folderToSaveExists) Then

'get your folder to scan

Set objFolderToScan = [url removed, login to view](folderToScan)

'put al the files under it in a collection

Set colFiles = [url removed, login to view]

'create an instance of Word

Set objWord = CreateObject("Word.Application")

If objWord Is Nothing Then

MsgBox "Couldn't start Word.", 48, "Application Start Error"


'for each file

For Each curFile in colFiles

If ([url removed, login to view](curFile) = "doc") Then

'get the filename without extension

curFileName = [url removed, login to view]

curFileName = Mid(curFileName, 1, InStrRev(curFileName, ".") - 1)

[url removed, login to view] [url removed, login to view](curFile)

[url removed, login to view] = False

Set oDoc = [url removed, login to view]

[url removed, login to view] folderToSave & curFileName & ".htm", wdSaveFormat

[url removed, login to view]

Set oDoc = Nothing

End If


End If

[url removed, login to view]

Set objWord = Nothing

Set colFiles = Nothing

Set objFolderToScan = Nothing

End If

Set objFso = Nothing


Skills: .NET

See more: vbs net, use vbs net, callingvbsfromaspnetvb|net, working from, vb this, get asp net, first mid, asp net need html, aspnet dim objfso, vb n,,, your true, VB, true, scripting word, scan copy, pls, mid, document to html conversion

About the Employer:
( 25 reviews ) London, United Kingdom

Project ID: #17597