Dobrý deň,

v outlooku som spravil scriptík, ktorý zapína/vypína out of office resp. vytvára/maže súbor na sieťovom disku (ktorého prítomnosť kontroluje shell scriptik na mail serveri a ten podľa toho či existuje vypina/zapina out of office pre konkrétneho usera). Potrebujem ale doriešiť jednu vec. Chcem aby script počkal kým užívateľ nevypne notepad. Nakoľko shell scriptik kontroluje prítomnosť súboru každých 10 sec a keď nájde tak nakopíruje out of office text ktorý je tam. Teda preto potrebujem vytvoriť súbor nemaz az po zavretí notepadu.

aby sa zastavil po tomto
linne = "notepad G:/oooffice/rhenus-kuchar/text.txt"
Shell linne

a pokračoval až keď užívateľ vypne notepad.
Vedel by mi niekto s tým poradiť?

Private Sub Application_Quit()
Dim objFileSystem, objOutputFile
Dim strOutputFile
If MsgBox("Chcete zapnut Out Of office?", vbYesNo, "Aktivacia out of office") = vbYes Then
Dim linne As String
linne = "notepad G:/oooffice/rhenus-kuchar/text.txt"
Shell linne

strOutputFile = "G:/oooffice/rhenus-kuchar/nemaz"
Set objFileSystem = CreateObject("Scripting.fileSystemObject")
Set objOutputFile = objFileSystem.CreateTextFile(strOutputFile, True)
objOutputFile.WriteLine ("ondrej.kuchar@sk.rhenus.com")
objOutputFile.Close
Set objFileSystem = Nothing

Else

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists("G:/oooffice/rhenus-kuchar/nemaz") ) Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile ("G:/oooffice/rhenus-kuchar/nemaz")
End If

End If
End Sub

Private Sub Application_Startup()
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists("G:/oooffice/rhenus-kuchar/nemaz") ) Then
If MsgBox("Mate zapnuty out of office. Chcete ho vypnut?", vbYesNo, "Dektivacia out of office") = vbYes Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile ("G:/oooffice/rhenus-kuchar/nemaz")
End If
End If
End Sub