DeleteFiles
删除远程 ftp 服务器上的文件。
语法
DeleteFile(STRING 文件)
其中：
文件是字符串，例如：readme.txt
返回
布尔。 如果返回 TRUE，表明函数成功，否则，将意味着返回错误。 当返回 FALSE 后，FTPObject.LastError 将返回 WIN32 错误代码。
示例
上传文件并在远程 FTP用于在网络计算机之间传输文件的协议。 服务器中将其删除的示例：
Function Random(N)
Random = Int(N*Rnd)
End 函数
函数 Main
Dim FTPobj As Object
Dim fl As Object
'按需配置
ip = "127.0.0.1"
port = 21
mode = FALSE
username = "anonymous"
password = "test@lnss.com"
cr = Chr(13) + Chr(10)
Set fl = file.Connect("127.0.0.1")
fl.Open "testfile.txt", GENERIC_WRITE, CREATE_ALWAYS
fl.writeline("这是测试文件")
'初始化随机选择
Randomize
fl.Close
'现在生成一个要添加到文件名的随机编号
For K = 1 To 10
randomnumber = randomnumber & CStr(Random(10))
Next
tempFile = "lnssFile" + randomnumber
'新建 ftp 连接
Set FTPobj=FTP.Connect (ip,21,mode,username,password)
If FTPobj.PutFile ( "testfile.txt", tempFile ) = TRUE Then
echo "文件写入访问权限对以下位置的匿名 ftp 可用" + ip & cr
If FTPobj.DeleteFile ( tempFile ) = TRUE Then
echo "文件删除访问权限对以下位置的匿名 ftp 可用" + ip& cr
Else
echo "文件删除访问权限不可用。 您可能需要删除 GFI LanGuard 创建的文件" & cr
End If
End If
fl.Delete("testfile.txt")
End 函数