请教读取文件的有关问题

2012-07-28

请问读取文件的问题我有一个lorder是扫描一个指定文件是否存在，之前是不存在则发邮件。现在我要改成不存在

请问读取文件的问题
我有一个lorder
是扫描一个指定文件是否存在，之前是不存在则发邮件。现在我要改成不存在间隔30秒再扫描一次，不存在再发邮件.请问怎么添加那段程序。

[解决办法]
用一个Timer去定时Check:

VB code

Public Function FileExists(FileName As String) As Boolean' test to see if a file existsConst INVALID_HANDLE_VALUE = -1&            FileExists = Not (GetFileAttributesW(StrPtr(FileName)) = INVALID_HANDLE_VALUE)    End Function
[解决办法]
VB code加个timer控件：Private Sub Form_Load()Timer1.Interval = 30000Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()'检测文件是否存在End Sub