VB FTP删除文件、重命名文件模块代码

FTP重命名文件和删除文件代码，写成了函数，用着方便些，使用时只需输入参数即可，先来看FTP重命名函数代码：

1	Public Function RenameFTPFile(ByVal strRemoteFile As String, ByVal NewName As String) As Boolean

2	Dim Info As Boolean

3	If lngInetConn = 0 Then

4	RenameFTPFile = False

5

Else

6	Info = FtpRenameFile(lngInetConn, strRemoteFile, NewName)

7	RenameFTPFile = Info

8

End If

9	End Function

 FTP重命名文件函数参数：strRemoteFile 远程文件名；localFile 新文件名。

下面是FTP删除文件模块的代码：

1	Public Function DeleteFTPFile(ByVal strRemoteFile As String) As Boolean

2	Dim Info As Boolean

3	If lngInetConn = 0 Then

4	DeleteFTPFile = False

5

Else

6	Info = FtpDeleteFile(lngInetConn, strRemoteFile)

7	DeleteFTPFile = Info

8

End If

9	End Function

FTP删除文件函数，此函数参数说明：strRemoteFile 远程文件名。