こんばんは。

質問なのですが、現在、コモンダイアログから、ファイルを
選んでもらい、そのパス名をリストにいれているのですが、

Private Sub a_cmd_Click()
On Error GoTo Cancel_
    
   　With CommonDialog1
        .Filter = "すべてのファイル(*.*)"
        .InitDir = "c:\WINDOWS\デスクトップ\"
        .ShowOpen
        strfilename = .filename
    End With
    
    FileName_lst.AddItem strfilename
    
Cancel_:    
End Sub

で、Cancel_:は、キャンセル時にエラーになる為、
入れてあるのですが、キャンセルした後、もう一度
ボタンを押して、ファイル名を選ぶと、リストの2行目
に入ってしまい、1行目が空白行になってしまいます。
空白行は、除去したいのですが方法が見つかりません。
どなたかお分かりの方教えて下さい。m(_ _)m

下記の様にして見るとかでは？

Dim strfilename As String

Private Sub a_cmd_Click()
On Error GoTo Cancel_
    
    　With CommonDialog1
         .FileName = ""
         .Filter = "すべてのファイル(*.*)"
         .InitDir = "c:\WINDOWS\デスクトップ\"
         .ShowOpen
         strfilename = .filename
     End With

        If Trim(strfilename) <> "" Then
           FileName_lst.AddItem strfilename
        end if
    
Cancel_:    
End Sub

> で、Cancel_:は、キャンセル時にエラーになる為、
> 入れてあるのですが、

　キャンセル時にエラーを発生させるには、CancelErrorプロパティをTrueにする
必要があります。

おはようございます。
＞nobuさん。Starfishさん。

返答が遅くなってしまい申し訳ありません。
教えていただいた方法を取り入れたところ、
うまく実行できました。
まだまだ勉強不足で、今回のような簡単な
所も見ぬけぬ事もこれから多々出るかと思い
ますが、またよろしくお願いします。m(_ _)m