以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  逻辑关系咨询  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90144)
--  作者：南望
--  发布时间：2016/9/6 15:44:00
--  逻辑关系咨询
用判断处理所有".xls和.xlsx文件，但不包含文件以  “~$“字符开头的EXCEL应该如何写

If file.EndsWith(".xls") OrElse file.EndsWith(".xlsx") AndAlso not  file.StartsWith("~$"))
--  作者：南望
--  发布时间：2016/9/6 16:09:00
--  
老师？
--  作者：南望
--  发布时间：2016/9/6 16:28:00
--  
老师咧，帮忙解答一下先谢谢了。
--  作者：狐狸爸爸
--  发布时间：2016/9/6 17:06:00
--  
If (file.EndsWith(".xls") OrElse file.EndsWith(".xlsx")) AndAlso  file.StartsWith("~$")=False then
--  作者：南望
--  发布时间：2016/9/6 17:20:00
--  
TO狐爸，上面的代码还是处理了以~$开头的文件，例如：~$文件名.xls
--  作者：狐狸爸爸
--  发布时间：2016/9/6 17:35:00
--  
上面的代码就是后缀是xls或xlsx，且不是~$开头的意思。
--  作者：南望
--  发布时间：2016/9/7 0:18:00
--  
可能我没有表述清楚，以~$开头的文件也是以XLS为后缀的，我不想包含这类文件。
例：有3个文件
1、表A.xls
2、表B.xlsx
3、~$表C.XLS

以上3个文件只想包含文件1和文件2，不处理文件3
--  作者：有点蓝
--  发布时间：2016/9/7 8:21:00
--  
For Each File As String In FileSys.GetFiles("D:\\项目")
    If (file.EndsWith(".xls") OrElse file.EndsWith(".xlsx")) AndAlso  FileSys.GetName(file).StartsWith("~$")=False Then
        Output.Show(File)
    End If
Next
--  作者：南望
--  发布时间：2016/9/7 14:37:00
--  
问题解决，多谢老师