删除后怎么刷新File1

哎没人回呀
我回吧
怕对别人有用
Private Sub Command1_Click()
Dim I As Integer
For I = 0 To File1.ListCount - 1
If I <> 0 Then Exit Sub
Kill File1.Path & "\" & File1.List(I)
File1.Refresh
Next I
End Sub
Private Sub File1_Click()
pathName = IIf(Right(File1.Path, 1) = "\", File1.Path & File1.FileName, File1.Path & "\" & File1.FileName)
Picture1.Picture = LoadPicture(pathName)
End Sub
Private Sub Form_Load()
File1.FileName = App.Path & "\Database\" & Format(Now, "yyyymmdd")
End Sub