File1.Pattern = "*8*.*" '通配符 File1.Path = "c:\windows\system32\" '路径 'File1.Refresh '刷新,目前是这句不需执行。 '用于磁盘目录改变,而程序未重新指定路径等属性时用 Text1.Text = File1.ListCount '读条数