Common Dialog WICHTIG HILFE

[Yugi-Radiodome]

Hey leute bitte um hilfe

Private Sub Command1_Click()
Dialog1.ShowOpen list.AddItem
Dialog1.FileName
End Sub

Private Sub Form_Load()

End Sub

Private Sub list_Click()

End Sub

Private Sub MediaPlayer1_DVDNotify(ByVal EventCode As Long, ByVal EventParam1 As Long, ByVal EventParam2 As Long)

End Sub

Das ist mein Code

ICh habe ein Mediaplayer eine Listbox und Einen Button und EInmal Commondialog 6.0

So ich hab jetzt da in dem Button den Code das wenn mann den Klickt das sich ein oeffnen fenster oeffnet ! So es lief auch alles einwand frei bis zum neustart

Und jetzt bekomm ich Folgenden fehler

Compile Error

Argument  not Optional

KAnn mir wer helfen der macht Das add Item Gelb

Private Sub Command1_Click()
Dialog1.ShowOpen list.AddItem
Dialog1.FileName
End Sub

DER DIREKTE CODE fuer den Button !

 

[JensG]

Hi,

Dialog1.ShowOpen list.AddItem
Dialog1.FileName

was willst du damit bezwecken ?
Das kann nie funktioniert haben.

Ich nehme an das list eine Listbox ist.

1. Die ShowOpen Function braucht oder lässt keine Parameter zu.
2. Du musst bei .FileName auch ein File angeben.

so etwa

Dialog1.ShowOpen
Dialog1.FileName = list.text
oder
Dialog1.FileName = "C:\Test.txt"

Jens

 

[Yugi-Radiodome]

iCH WILL DAS:::

ich will ja das was mann oeffnet das das in de xlistbox kommt

 

[meilon]

Private Sub Command1_Click()
    With Dialog1
        .DialogTitle = "Datei hinzufügen"
        .Filter = "<filtername>|*.typ;*.ty2;*ty3"
        .ShowOpen
    End With
    list.additem dialog.filename 'gibt kompletten Pfad wieder
'ODER
    list.additem dialog.filetitle 'gibt nur Dateinamen wieder!
End Sub

büddeschön!

mfg