Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Interessantes Problem:CMDDialog
Autor: HugoHirsch
Datum: 24.04.02 13:02
Hi, lustig: hab einen CommonDialog mit mehrfacher Dateiauswahl... Ist einwandfrei gelaufen (hatte auch nur 12 Dateien zum Testen). Jetzt bekomm ich mein Programm zurück, weil es nicht mehr als 14 Dateien auswählen kann. Er stürzt beim Auswählen von 15 Dateien im Common Dialog einfach ab und geht zu "errfile". 2. Problem: Wenn ich 10 Dateien wähle und wieder auf cmdLog_Click() klick, dann geht er in der ComDialFile ins parent Verzeichnis und in der Datei Textbox im Dialog stehen alle Dateien drinnen (WILL ICH ABER NICHT!!) Herzlichsten Dank - wäre dringend Folgender Code: ... Dim Datei as String Dim Pfad as string ... Private Sub cmdLog_Click() List1.Clear Pfad = "" Pfad = GetSetting(App.EXEName, "Datei", "Pfad", "") On Error GoTo errfile With ComDialFile .Filter = "*.log - Log Files|*.log|" .DialogTitle = "LogFile wählen" .InitDir = Pfad .Flags = &H200 + &H80000 .Action = 1 Datei = .FileName ' Weiter komm ich nicht!! Er stürzt im Common Dialog Do While Not InStr(Datei, vbNullChar) = 0 ' Falls im String noch ein Pfad steht, so wird dieser ' in die Textbox geschrieben. If InStr(Datei, "\") = 3 Or InStr(Datei, "\") = 1 Then ' Feststellen wo der erste vbNullChar ist (vor der ersten Datei !) intPosDelim = InStr(Datei, vbNullChar) ' Den Pfad extrahieren, und ein abschließendes "\" setzen Pfad = Left(Datei, intPosDelim - 1) & "\" ' Die Variable enthält nun nur noch die Dateien ' (das erste vbNullChar wird weggelassen) Datei = Mid$(Datei, intPosDelim + 1) Else ' Das erste vbNullChar finden (nach der ersten Datei) intPosDelim = InStr(Datei, vbNullChar) ' Von rechts alles in die neue Variable schreiben, ' bis zum vbNullChar Datei2 = Mid$(Datei, 1, intPosDelim - 1) ' Die Variable wird ohne die eben genutzte Datei ' zurückgeschrieben Datei = Mid$(Datei, intPosDelim + 1) ' Die extrahierte Datei wird zur ListBox hinzugefügt List1.AddItem Datei2 End If Loop If InStr(Datei, "\") Then 'Datei vom Pfad trennen Pfad = Left$(Datei, Len(Datei) - Len(.FileTitle)) 'Variablenmissbrauch intPosDelim = Len(Pfad) Datei = Mid$(Datei, intPosDelim + 1) List1.AddItem Datei Else List1.AddItem Datei End If SaveSetting App.EXEName, "Datei", "Pfad", Pfad End With Exit Sub errfile: MsgBox "Fehler beim Auswählen der Datei!", vbCritical + vbOKOnly, "Achtung!" End Sub

Interessantes Problem:CMDDialog	87	HugoHirsch	24.04.02 13:02
.maxfilesize	69	HugoHirsch	24.04.02 14:22
Re: .maxfilesize	407	Dieter	24.04.02 14:29
Re: .maxfilesize	59	HugoHirsch	24.04.02 14:37

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