Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

VBS - Object als Return Value einer Funktion

Frage Entwicklung VB for Applications

Mitglied: MSchyska

MSchyska (Level 1) - Jetzt verbinden

22.02.2007, aktualisiert 23.02.2007, 11592 Aufrufe, 4 Kommentare

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:

01.
Set objFSO = CreateObject("Scripting.FileSystemObject") 
02.
 
03.
Set objFile1 = CreateTextFile("d:\temp\huhu", True) 
04.
 
05.
WScript.Echo objFile1.Path 
06.
 
07.
Function CreateTextFile(strFile, OverWriteFlag) 
08.
 
09.
On Error Resume Next 
10.
	 
11.
Set CreateTextFile = objFSO.CreateTextFile(strFile, OverWriteFlag) 
12.
 
13.
If Err.Number <> 0 Then 
14.
	WScript.Echo "CreateTextFile: Fehler beim Anlegen von " & strFile 
15.
 
16.
	If Err.Number = -2147024784 Then 
17.
		WScript.Echo "Fehlernr. " & Err.Number & ": nicht genügend Plattenplatz" 
18.
	Else 
19.
		WScript.Echo "Fehlernr. " & Err.Number & ": " & Err.Description 
20.
	End If 
21.
End If 
22.
 
23.
On Error GoTo 0 
24.
 
25.
End Function ' CreateTextFile
Mitglied: bastla
22.02.2007 um 17:40 Uhr
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
01.
objFile1.WriteLine "Dieses Textfile wurde mit einer Function erstellt." 
02.
objFile1.Close
Grüße
bastla
Bitte warten ..
Mitglied: MSchyska
23.02.2007 um 10:00 Uhr
Hallo bastla,

du hast recht, so funktioniert es.

Danke

MSchyska
Bitte warten ..
Mitglied: MSchyska
23.02.2007 um 10:59 Uhr
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

01.
Set objFile1 = CreateTextFile("d:\temp\huhu", False)
die Fehlermeldung

01.
C:\Scripts\tObject1.vbs(3): Exception: Object required: 'CreateTextFile(...)'
Wie kann ich den Fehler nach Aufruf der Funktion "CreateTextFile" sauber abfangen?

Gruß

MSchyska
Bitte warten ..
Mitglied: bastla
23.02.2007 um 11:45 Uhr
Hallo MSchyska!

Wenn die Funktion kein Objekt zurückliefert, erhältst Du als Ergebnis "Nothing", also müsste
01.
If Not CreateTextFile("d:\temp\huhu", False) = Nothing Then Set objFile1 = CreateTextFile("d:\temp\huhu", False)
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
Bitte warten ..
Ähnliche Inhalte
C und C++
gelöst Methode multiple return values (8)

Frage von mayho33 zum Thema C und C ...

VB for Applications
gelöst Vbscript Fehlercode: Object required (2)

Frage von aletri zum Thema VB for Applications ...

PHP
gelöst How to get counter value from ebay (6)

Frage von thankusomuch zum Thema PHP ...

PHP
gelöst PHP Key - Value Dictionary in einer Schleife erzeugen (3)

Frage von facebraker zum Thema PHP ...

Neue Wissensbeiträge
Ubuntu

Ubuntu 17.10 steht zum Download bereit

Information von Frank zum Thema Ubuntu ...

Datenschutz

Autofahrer-Pranger - Bewertungsportal illegal

(8)

Information von BassFishFox zum Thema Datenschutz ...

Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

(2)

Information von thomasreischer zum Thema Windows 10 ...

Microsoft

Die neuen RSAT-Tools für Win10 1709 sind da

(2)

Information von DerWoWusste zum Thema Microsoft ...

Heiß diskutierte Inhalte
Router & Routing
Allnet - VDSL2 Modem - SFP (mini-GBIC) (20)

Frage von Dobby zum Thema Router & Routing ...

Voice over IP
DeutschlandLAN IP Voice Data M Premium, Erfahrung mit Faxgeräte? (17)

Frage von liquidbase zum Thema Voice over IP ...

TK-Netze & Geräte
TK-Anlage VoIP - DECT Erweiterung (16)

Frage von Lynkon zum Thema TK-Netze & Geräte ...