Hallo,
ich hab ne Frage(mal wieder 
)
Wie krieg ich es hin, dass sich per Buttoclick ein Auswahlmenü öffnet, in dem man einen Pfad wählen kann?
z.B. zum Spiechern einer Datei
MfG Rodario
Hallo Rodario.
Meinst Du in VB6?
Falls ja, dann füge deinem Projekt das CommonDialog-Control hinzu.
Viele Grüße Carsten
Hallo,
wie gesagt füge deinem Project den Windows Commondialog hinzu und dann folgenden Source zum Bsp.
On Error Resume Next
With CommonDialog1
.CancelError = True
.DefaultExt = "dat" 'Deine Standard Extension
.DialogTitle = "Speicherort auswählen"
.Filter = "Alle Dateien (\*.\*) |\*.\*"
.Flags = &H80000 Or &H1000 Or &H4
.ShowSave
If Err.Number = 0 Then msgbox .filename
End With
MfG Alex
Hallo Rodario.
Hi
Falls ja, dann füge deinem Projekt das CommonDialog-Control
hinzu.
Wo finde ich den?
Viele Grüße Carsten
MfG
Rodario
Falls ja, dann füge deinem Projekt das CommonDialog-Control
hinzu.Wo finde ich den?
Hi Rodario,
da: http://www.hostarea.de/server-05/Mai-af31fc79b5.jpg
wenn du vorher Rechtsklick in die Werkzeugsammlung machst und Komponenten auswählst.
Gruß
Reinhard, der im VB5 Editor ähnlich blind umherirrt um was zu finden )
Reinhard, der im VB5 Editor ähnlich blind umherirrt um was zu
finden
Kann ich garnicht verstehen. So gross ist der doch nicht *feix* Dann solltest du dir mal VB9 anschauen. Da kannste suchen *grins*
MfG Alex
By the Way … Reinhard. Hast du Lust an ner kleinen Sache zu kniffeln?
MfG Alex
Hallo Alex,
Reinhard, der im VB5 Editor ähnlich blind umherirrt um was zu
findenKann ich garnicht verstehen. So gross ist der doch nicht
*feix* Dann solltest du dir mal VB9 anschauen. Da kannste
suchen *grins*
klingt so als wäre VB9 sowas wie Office2007, da kriege ich in den Foren schon stark mit wie die leute die schon Jahrelang mit Office2000 oder 2003 arbeiten innerhalb von Office2007 fluchenderweise in Office2007 nix mehr wiederfinden am alten Ort.
By the Way … Reinhard. Hast du Lust an ner kleinen Sache zu
kniffeln?
Klar, ich verzettele mich gerne Anstatt mich mit sowas stundenlang rumzuprügeln: /t/zahlenkombinationen/4606324
könnte ich ja Millionen von Frauen kennenlernen, Banken überfallen, sonstwie zu Geld kommen, im Park liegen…irgendwie mache ich da was falsch *gg*
Und da du die Frage stellst wird es sicher keine reine VB-Frage sein denn dann wäre es von dir aus gesehen Blödsinn grad mich zu fragen *lächel*
Gruß
Reinhard
Hallo Reinhard,
neee neee ist schon reine VB Frage und eigentlich auch nicht schwer. Nur stehe ich derzeit nen bissl schwer und hab den Kopf mit anderen Sachen voll!
Also ne kleine Erklärung
Es liegt eine Collection vor.
Zugreifen kann man da mit
Dim I as long
Dim Item as Fileinfo
For I= 1 to myFileInfo.Count
Set Item = myFileInfo.Item(i)
'Item.Path wäre nun ein Pfad
So in der Collection stehen etliche Eintraege drinnen,in der Form
D:\MeineDaten\Remote\Client\Ordner1\Ordner2
D:\MeineDaten\Remote\Client\Ordner3\Ordner4
D:\MeineDaten\Remote\Client\Ordner1\
D:\MeineDaten\Remote\Client\Ordner1\Ordner5
D:\MeineDaten\Remote\Client\Ordner6
Das sind Pfade zu den Dateien.
Dann habe ich noch ein Array ( MyDirectory)
Diese Array enthaelt Daten in der Form
Ordner1\Ordner2
Ordner6
Ordner1
Ich brauche nun eine Routine die mir raussucht, welches File von der Collection in welches Directory gehört!
Nehmen wir zum Bsp. mal an in der Collection steht folgendes
Item.Pfad =D:\MeineDaten\Remote\Client\Ordner1\Ordner2
Item.Filename="abc.de"
So brauche ich als Rueckgabewert Ordner1\Ordner2
naechstes Bsp.
Item.Pfad =D:\MeineDaten\Remote\Client\Ordner1\
Item.Filename="def.de"
So brauche ich als Rueckgabewert Ordner1\
In dem Falle waere Client der Freigegebene Ordner in einem Netzwerk.
Von daher brauche ich die Daten davor nicht 
Hast du ne Routine parat, die ihren Dienst erfuellt?
MfG Alex