Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Problem mit dem FSO (FileSystemObjects.
Autor: Hauke
Datum: 09.07.02 14:52
Ich wollte den Tipp "Größe eines Ordners schnell ermitteln" verwenden und habe diesen in meinem Code eingefügt aber er funktioniert nicht richtig. Denn als ich in Testen wollte trat der Fehler "Benutzerdefinierter Typ nicht definiert" in der Zeile "Dim FSO As New Scripting.FileSystemObject" und "Scripting.FileSystemObject" existiert auch nicht als Benutzerdefinierter Typ (Scripting.FileSystemObject ist nicht aus wählbar) wo muss ich ihn deklarieren oder wie bekomme ich dass "Scripting.FileSystemObject" auswählbar ist oder wo ist der Wurm drin ? 'code Private Sub Form_Load() MsgBox FolderSize("c:Eigene Dateien") End Sub ' Ordnergröße ermitteln Public Function FolderSize(ByVal strFolder As String) _ As Double Dim FSO As New Scripting.FileSystemObject Dim Folder As Scripting.Folder ' Ggf. abschliessenden Backslash anfügen If Right$(strFolder, 1) <> "\" Then _ strFolder = strFolder & "\" Set Folder = FSO.GetFolder(strFolder) FolderSize = Folder.Size Set Folder = FSO.GetFolder("c:downloads\") MsgBox Folder.Size End Function

Problem mit dem FSO (FileSystemObjects.	260	Hauke	09.07.02 14:52
Re: Problem mit dem FSO (FileSystemObjects.	2.265	Dieter	09.07.02 15:31
OK	235	Hauke	09.07.02 18:00

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen