16,554
社区成员
发帖
与我相关
我的任务
分享
Private Function Connect(ByVal strUrl) As Boolean
MyCertificate = New NetworkCredential(strLoginName, strLoginPassword)
MyFtpRequest = WebRequest.Create(strFtpServer & "/" & strWorkDirectory & "/" & strUrl)
MyFtpRequest.Credentials = MyCertificate
MyFtpRequest.UseBinary = True
End Function
Public Function ExistDir(ByVal strDirName As String) As Boolean
Try
Connect(strDirName)
MyFtpRequest.Method = WebRequestMethods.Ftp.ListDirectory
MyFtpResponse = MyFtpRequest.GetResponse()
MyFtpResponse.Close()
Return True
Catch ex As Exception
Return False
End Try
End Function