基于Dir函数更改标签

我试图通过点击一个button使一个标签在Dropbox目录中的文件名中显示date,但是我点击了它,标签从原来的“…”更改为“”。 这里是代码:

Private Sub ShowDate(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_showdate.Click Dim pathname As String = "https://link.com/dropbox/DateFileName*.xlsx" Dim FileName As String = Dir(pathname) lbl_autodate.Text = Microsoft.VisualBasic.Right(FileName, 8) End Sub 

我希望标签显示date(文件名中的最后10个字符)。 例如,文件名是DateFileName_02_10_2014,标签应显示02_10_14。