Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: comondialog
Autor: Florian B.
Datum: 29.11.02 13:56
Dim Flag As Boolean, aa$, bb$, path$, Mem As Boolean, Pos&, x& On Error GoTo Break txtFile = commondialog1.FileName txtFile.Refresh With commondialog1 .FileName = "" .CancelError = True .Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer .ShowOpen If Flag Then Me.Visible = True Else File1.Clear 'Schauen ob evt. nur eine Datei ausgewählt wurde If InStr(.FileName, Chr$(0)) <> 0 Then aa = .FileName & Chr$(0) Pos = 1 Do 'Chr$(0) ist Trennzeichen x = InStr(Pos, aa, Chr$(0)) If x = 0 Then Exit Do bb = Mid$(aa, Pos, x - Pos) If Not Mem Then 'Im ersten Teil befindet sich immer der Pfad path = bb Mem = True Else 'Pfad ist bereits bekannt, es folgen Dateinamen File1.AddItem path & "\" & bb End If Pos = x + 1 Loop Else 'Es wurde nur eine Datei ausgewählt File1.AddItem .FileName End If End If End With Exit Sub Break: If Err.Number = 32755 Then Flag = True Resume Next ElseIf Err.Number = 20476 Then Flag = True MsgBox ("Es wurden zu viele Dateien ausgewählt!") End If

comondialog	528	keine frage	28.11.02 17:28
Re: comondialog	378	dbayer	28.11.02 17:35
Re: comondialog	373	Dieter	28.11.02 17:46
Re: comondialog	62	Florian B.	29.11.02 13:56
Re: comondialog Ganz easy	52	Inderinside19	02.12.02 16:18

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