dumme commondlg

jeg er ikke sikker på at det er sådan du ville ha det, men her for du kun \"C:\\ eller D:\\ eller E:\\\".

Private Sub Command1_Click()
CommonDialog1.ShowOpen
Text1.Text = Left(CommonDialog1.filename, 3)
End Sub

Du kan finde hele stien ved:

For I=1 To Len(CommonDialog1.filename)

Ups... Der kom det hele vist ikke med; koden var:

For I=1 To Len(CommonDialog1.filename)
    Sti=Right$(CommonDialog1.filename,I)
    If Left$(Sti,1)=\"\\\" Then Exit For
Next I
Sti = Right$(Commondialog.filename,I-1)

Så indeholder \'sti\' den komplette sti.

i har nok i fattet det? men jeg vil kun have stien... ikke filnavnet...+++

men jeg prøver lige jeres svar... ;)

dvs. C:\\windows\\sysedit.exe vil jeg HAVE kun C:\\windows!!!?????

Mit forslag giver også kun stien, altså \"C:\\Windows\" ud fra \"C:\\Windows\\sysedit.exe\" (håber jeg, har ikke testet det).

driis: det gør det ikke, den giver kun sysedit.exe

DOH!

Det har vist været weekend for længe:

For I=1 To Len(CommonDialog1.filename)
    Sti=Right$(CommonDialog1.filename,I)
    If Left$(Sti,1)=\"\\\" Then Exit For
Next I
Sti = Left$(Commondialog1.filename,Len(Commondialog1.filename)-I)

tester lige ;)

Kunne denne her måske bruges?

Private Sub Command1_Click()

  CommonDialog1.InitDir = GetFilePath(\"d:\\hello.text\", True)
  CommonDialog1.ShowOpen

End Sub

Public Function GetFilePath(ByVal FullFilePath As String, Optional ByVal AddSlash As Boolean = False) As String
Dim nPos As Integer
Dim sTmp As String

  nPos = InStrRev(FullFilePath, \"\\\")
  If nPos > 1 Then
    sTmp = Left(FullFilePath, nPos - 1)
    If AddSlash Then sTmp = sTmp & \"\\\"
    GetFilePath = sTmp
  End If
End Function

hold da op ;)

jeg tester lige ;)

Test nu ikke for længe... ;)

Jaeh; det må siges at være en ret grundig test, vores kodestumper gennemgår...

Skal det her spm ikke snart lukkes?

ups, tja jo