主题：导入

Dim flag As Boolean = False
For i As Integer = 5 To 10 Then
    If File.Contains("201501" & Format(i, "00")) Then
        flag = True
        Exit For
    End If
End If

If flag Then

End If