swApp.CloseDoc PathStr5
Next i
End Sub
Private Sub Showfilelist(folderspec As String) Dim fs, f, f1, fc, s
Set fs = CreateObject(\ Set f = fs.GetFolder(folderspec) Set fc = f.Files FNum = 0 '清零 For Each f1 In fc
If InStr(f1.Name, \ FName(FNum) = f1.Name FNum = FNum + 1 End If Next End Sub
相关推荐: