4
VBS - Object als Return Value einer Funktion
Hallo,
wie gebe ich aus einer Funktion ein Object als return value zurück und wie greife ich dann darauf zu?
Was ist hier falsch:
wie gebe ich aus einer Funktion ein Object als return value zurück und wie greife ich dann darauf zu?
Was ist hier falsch:
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile1 = CreateTextFile("d:\temp\huhu", True)
WScript.Echo objFile1.Path
Function CreateTextFile(strFile, OverWriteFlag)
On Error Resume Next
Set CreateTextFile = objFSO.CreateTextFile(strFile, OverWriteFlag)
If Err.Number <> 0 Then
WScript.Echo "CreateTextFile: Fehler beim Anlegen von " & strFile
If Err.Number = -2147024784 Then
WScript.Echo "Fehlernr. " & Err.Number & ": nicht genügend Plattenplatz"
Else
WScript.Echo "Fehlernr. " & Err.Number & ": " & Err.Description
End If
End If
On Error GoTo 0
End Function ' CreateTextFile 
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 52396
Url: https://administrator.de/contentid/52396
Printed on: April 23, 2024 at 06:04 o'clock
4 Comments
Latest comment
Hallo MSchyska!
Auch wenn ich der Function nicht den Namen einer FSO-Methode gegeben, sondern sie vielleicht "MakeTextFile" genannt hätte, funktioniert die Funktion.
Der Fehler entsteht erst beim Test, da ein offenes "TextFile"-Objekt keine "Path"-Eigenschaft hat. Versuch zB statt der "WScript.Echo"-Zeile
Grüße
bastla
Auch wenn ich der Function nicht den Namen einer FSO-Methode gegeben, sondern sie vielleicht "MakeTextFile" genannt hätte, funktioniert die Funktion.
Der Fehler entsteht erst beim Test, da ein offenes "TextFile"-Objekt keine "Path"-Eigenschaft hat. Versuch zB statt der "WScript.Echo"-Zeile
objFile1.WriteLine "Dieses Textfile wurde mit einer Function erstellt."
objFile1.CloseGrüße
bastla
Hallo bastla,
du hast recht, so funktioniert es.
Danke
MSchyska
du hast recht, so funktioniert es.
Danke
MSchyska
Hallo bastla,
Dein Vorschlag funktioniert im Erfolgsfall (d.h. wenn ich eine Textdatei anlegen kann).
Wenn das Anlegen der Textdatei aber einen Fehler produziert bekomme ich in der Zeile
die Fehlermeldung
Wie kann ich den Fehler nach Aufruf der Funktion "CreateTextFile" sauber abfangen?
Gruß
MSchyska
Dein Vorschlag funktioniert im Erfolgsfall (d.h. wenn ich eine Textdatei anlegen kann).
Wenn das Anlegen der Textdatei aber einen Fehler produziert bekomme ich in der Zeile
Set objFile1 = CreateTextFile("d:\temp\huhu", False) die Fehlermeldung
C:\Scripts\tObject1.vbs(3): Exception: Object required: 'CreateTextFile(...)' Wie kann ich den Fehler nach Aufruf der Funktion "CreateTextFile" sauber abfangen?
Gruß
MSchyska
Hallo MSchyska!
Wenn die Funktion kein Objekt zurückliefert, erhältst Du als Ergebnis "Nothing", also müsste
funktionieren. Allerdings wird bei jedem Aufruf der Funktion versucht, die Textdatei zu erzeugen, was bei einem nicht gewünschten Überschreiben das Vorhaben eigentlich schon zum Scheitern verurteilt ...
Alternativ kannst Du es natürlich über "On Error" versuchen, aber ich frage mich, wozu Du überhaupt den ganzen Aufwand treiben willst (nur wegen des in der Funktion selbst verwendeten Errorhandlings?). Eine Diskussion über saubere Programmierung möchte ich im Zusammenhang mit Scripting allerdings nicht führen ...
Grüße
bastla
Wenn die Funktion kein Objekt zurückliefert, erhältst Du als Ergebnis "Nothing", also müsste
If Not CreateTextFile("d:\temp\huhu", False) = Nothing Then Set objFile1 = CreateTextFile("d:\temp\huhu", False) Alternativ kannst Du es natürlich über "On Error" versuchen, aber ich frage mich, wozu Du überhaupt den ganzen Aufwand treiben willst (nur wegen des in der Funktion selbst verwendeten Errorhandlings?). Eine Diskussion über saubere Programmierung möchte ich im Zusammenhang mit Scripting allerdings nicht führen ...
Grüße
bastla
