vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: CommonDialog - Probleme 
Autor: Matthias
Datum: 31.01.02 16:05

Hallo Dieter,

der letzte Programmstand ist die Verwendung des Moduls standarddialoge.bas aus dem Workshop vom 15.03.01. :
http://www.visualbasic-archiv.de/workshop/workshop07.php3

Hier der Aufruf:
'Ersten Pfad einstellen
InitialDir$ = Pfad
'Filter einstellen
Filter$ = _
"Alle Dateien (*.*)" & vbNullChar & "*.*" & vbNullChar & _
"Stapelverarbeitungsdateien (*.bat)" & vbNullChar & "*.bat" & vbNullChar & _
"Bitmapdateien (*.bmp)" & vbNullChar & "*.bmp" & vbNullChar & _
"Dynamic-Link-Libaries (*.dll)" & vbNullChar & "*.dll" & vbNullChar & _
"Ausführbare Dateien (*.exe)" & vbNullChar & "*.exe" & vbNullChar & _
"Initialisierungsdateien (*.ini)" & vbNullChar & "*.ini" & vbNullChar & _
"Textdateien (*.txt)" & vbNullChar & "*.txt" & vbNullChar & _
"Systemdateien (*.sys)" & vbNullChar & "*.sys" & vbNullChar & vbNullChar

'Dialog öffnen und Dateien wählen
Dateien = Split(GetOpenName(Filter$, InitialDir$), vbNullChar)

'ACHTUNG: im ersten Array-Wert steht der Pfad!!!
Pfad = Dateien(0)
If Right(Pfad, 1) <> "" Then
Pfad = Pfad + ""
End If
' Jetzt alle ausgewählten Dateien übertragen
For i = 1 To UBound(Dateien)
If Dateien(i) <> "" Then
MoveSelected Pfad + Dateien(i)
End If
Next

Im Modul habe ich lediglich die Flags auf .Flags = OFN_ALLOWMULTISELECT Or OFN_EXPLORER geändert.

Vielleicht hilfts dir weiter.

Grüße
Matthias
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
CommonDialog - Probleme58Matthias31.01.02 15:22
Re: CommonDialog - Probleme241ModeratorDieter31.01.02 15:32
Re: CommonDialog - Probleme42Matthias31.01.02 16:05
Re: CommonDialog - Probleme283ModeratorDieter31.01.02 18:46
Re: CommonDialog - Probleme35Matthias01.02.02 08:59
Hmmm.. Eigenartig258ModeratorDieter01.02.02 09:05
Re: Hmmm.. Eigenartig30Matthias04.02.02 08:49

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übersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel