Function 文件名处理(s) '文件名非法字符错误的处理
    Dim ss
    ss = "\/:*?""<>|"
    For i = 1 To Len(ss)
        s = Replace(s, Mid(ss, i, 1), "_")
    Next
    文件名处理 = Left(s, 255)
End Function