VB编写的网站FTP上传自动同步小程序

VB编写的网站FTP上传自动同步小程序 Function Validate_File(ByVal filename As String) As Boolean Dim fileFile As Integer ' 'attempt to open file fileFile = FreeFile On Error Resume Next Open filename For Input As fileFile ' 'check for error If Err Then Validate_File = False Else ' 'file exists ' 'close file Close fileFile Validate_File = True End If End Function