Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Klasse zum auslesen von Dateien
Autor: Nici
Datum: 30.09.03 16:09
Hallo, ich möchte eine Klasse schreiben um die letzte jpg in einem Ordner zu ermitteln und dabei die ersten und letzten Zahlen der Datei auslesen und damit die Höhe und Breite der gesamten Dateien im Ordner berechnen. Mein Vode sieht so aus: Private Sub Get_Anzahl_PicsXY(ByRef X As Long, ByRef Y As Long) Dim oFolder As System.IO.FileInfo Dim oFile As System.IO.FileInfo Dim xMax As Long Dim yMax As Long Const path As String = sPath oFolder = oFSO.GetFolder(Path) xMax = 0 yMax = 0 For Each oFile In oFolder.Files If InStr(LCase(oFile.Name), ".jpg") And Len(oFile.Name) = 10 Then intPixelX = CShort(Mid(oFile.Name, 1, 3)) intPixelY = CShort(Mid(oFile.Name, 4, 3)) If intPixelX > intAnzPicsX Then intAnzPicsX = intPixelX If intPixelY > intAnzPicsY Then intAnzPicsY = intPixelY End If Next oFile intAnzPicsX = xMax + 1 intAnzPicsY = yMax + 1 End Sub Mein Problem: 1. sSpath Konstante erwartet 2. oFso nicht deklariert 3. oFolder.Files ist kein Memeber von System.Fileinfo BITTE UM HILFE !! Danke Nici

Klasse zum auslesen von Dateien	767	Nici	30.09.03 16:09
Re: Klasse zum auslesen von Dateien	666	DaveS	30.09.03 17:03

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