Hallo zusammen,
ich habe ein kleines Script, welches eine Datei Ausliest und den Inhalt dieser Datei in einer Meldung auf dem Bildschirm anzeigt. Wenn die Datei leer ist, gibt es eine Meldung aus.
|
Quellcode
|
1
2
3
4
5
6
7
8
9
10
|
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("datei2.txt")
If objFile.Size > 0 Then
Set objReadFile = objFSO.OpenTextFile("datei2.txt", 1)
strContents = objReadFile.ReadAll
Wscript.Echo strContents
objReadFile.Close
Else
Wscript.Echo "Derzeit sind keine Störungen bekannt"
End If
|
Beim Aufruf des Scripts erscheint als Titel des Fensters "Windows Script Host". Wenn man eine MessageBox aufruft, ist es jedoch möglich den Titel des Fensters anzugeben. Welche möglichkeit habe ich bei einem Script den Titel des Fensters zu ändern?
Vielen Dank vorab für eure Hilfe!
Gruß
mat1010
Edit by der_Kurt:
Bitte auf das richtige Unterforum achten
* verschoben *
EDIT:
Habe die Lösung gefunden.
|
Quellcode
|
1
2
3
4
5
6
7
8
9
10
|
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("datei2.txt")
If objFile.Size > 0 Then
Set objReadFile = objFSO.OpenTextFile("datei2.txt", 1)
strContents = objReadFile.ReadAll
MsgBox strContents, 0, "Mitteilungen"
objReadFile.Close
Else
'Wscript.Echo "Derzeit sind keine Störungen bekannt"
End If
|
Kann geschlossen werden.
Gruß
mat1010