Dim sFileName, sTitle
sFileName = "MyFile.odb"
sTitle = "ERROR"
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("WScript.Shell")
If Not oFSO.FileExists(sFileName) Then
oShell.Popup sFileName & " - file not found", 10, sTitle, vbCritical + vbSystemModal
Wscript.Quit 1
End If
' run the file with quotes added 1/0 to toggle Base window visible or not
iRC = oShell.Run("""" & sFileName & """", 0, True)
' Return file error level when exiting script
Wscript.Quit iRC
Nocton - vbs in openoffice? I dont understand. Can you say more about your code?
iRC = oShell.Run("""" & sFileName & """", 0, True)
Sub close
Dim oDesktop As Object, oDocs As Object
Dim oDoc As Object, oComponents As Object
oComponents = StarDesktop.getComponents()
oDocs = oComponents.createEnumeration()
Do While oDocs.hasMoreElements()
oDoc = oDocs.nextElement()
oDoc.dispose()
Loop
Wait 1000
Shell("c:\windows\system32\taskkill.exe",2,"/F /iM soffice.bin")
end sub
Dim sFileName, sTitle
sFileName = "MyFile.odb"
sTitle = "ERROR"
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("WScript.Shell")
If Not oFSO.FileExists(sFileName) Then
oShell.Popup sFileName & " - file not found", 10, sTitle, vbCritical + vbSystemModal
Wscript.Quit 1
End If
' run the file with quotes added 1/0 to toggle Base window visible or not
iRC = oShell.Run("""" & sFileName & """", 0, True)
' Return file error level when exiting script
Wscript.Quit iRC
Users browsing this forum: No registered users and 4 guests