Ændre i CommenDialog kode?

Sæt CommenDialog funktionens FileName værdi

Hej privaten

Jeg har ikke rigtigt kunne få den kode til at virke som du sendte til mig, men jeg fandt noget tilsvarende som jeg selv kunne få til at virke.

Herunder er den kode jeg benytter. Kan du ikke(gerne skåret ud i pap) fortælle/vise mig hvilke ændringer der skal til for at ovennævnte funktionalitet til at virke.

----Kode start----
Private Sub FindBanner_Click()
    Dim FileInfo As OPENFILENAME, RetVal As Long, Filter As String
    Filter$ = \"Jpg filer (*.jpg)|*.jpg|Jpeg filer (*.jpeg)|*.jpeg|Gif filer (*.gif)|*.gif| Alle Filer (*.*)|*.*\" \'Edit
   
    With FileInfo
        .lStructSize = Len(FileInfo)
        .hwndOwner = Me.Hwnd
    End With
       
    If Right$(Filter$, 1) <> \"|\" Then
        Filter$ = Filter$ & \"|\"
    End If
   
    Call String_Replace(Filter$, \"|\", Chr$(0))
   
    With FileInfo
        .lpstrFilter = Filter$
        .lpstrFile = Space$(254) & BannerImg  \'Edit
        .nMaxFile = 255
        .lpstrFileTitle = Space$(254)
        .nMaxFileTitle = 255
        .lpstrInitialDir = \"C:\\SpecOpg\\Web\\images\\\" \'Edit
        .lpstrTitle = \"Find fil\" \'Edit
        .lpstrDefExt = \"\"
        .Flags = OFN_HIDEREADONLY Or OFN_OVERWRITEPROMPT Or OFN_CREATEPROMPT
    End With
   
    RetVal& = GetOpenFileName(FileInfo)
    If RetVal& Then
    BannerImg = Trim$(FileInfo.lpstrFile) \'Edit
    Else
    BannerImg = BannerImg \'Edit
    End If
End Sub
----Kode slut----

Har fundet ud af det med hjælp fra sjh.multimedia@get2net.dk

Skulle bare ændre linjen:
BannerImg = Trim$(FileInfo.IpstrFile)
til
Trim$(FileInfo.lpstrFileTitle)