Private FSO As New FileSystemObjectPrivate Sub FileEXI()
Dim ExiStr(16), iLost As Integer
For i = 1 To 16
ExiStr(i) = FSO.FileExists("C:\Pic\" & i & ".png")
If ExiStr(i) = False Then
iLost = i
End If
Next i
If iLost0 Then
MsgBox "缺失"
Else
MsgBox "完整" ...