ms dosya adı Bu benim kodudur FileDialog

Question

seçilen olsun erişebilir ve ben dosyanın adını almak için nasıl bilmek istiyorum

Dim f As Object 
Set f = Application.FileDialog(3) 
f.AllowMultiSelect = True 
If f.Show Then 
    For i = 1 To f.SelectedItems.Count 
     MsgBox f.SelectedItems(i) 
    Next 
EndIf 

Answer 1

Böyle demek seçilmiş?

Sub Sample() 
    Dim f As Object 

    Set f = Application.FileDialog(3) 

    f.AllowMultiSelect = True 

    If f.Show Then 
     For i = 1 To f.SelectedItems.Count 
      MsgBox Filename(f.SelectedItems(i)) 
     Next 
    End If 
End Sub 

Public Function Filename(ByVal strPath As String) As String 
    If Right$(strPath, 1) <> "\" And Len(strPath) > 0 Then 
     Filename = Filename(Left$(strPath, Len(strPath) - 1)) + Right$(strPath, 1) 
    End If 
End Function