ファイルが存在する場合、FTPサーバーからファイルを削除するのに問題があります. 理論的には、以下のコードはファイル test.txt を FTP サーバーから削除する必要がありますが、何も起こらないようです。test.txt ファイルを含むローカル ディレクトリを作成し、そのディレクトリに inFile を指定すると、ファイルは正常に削除されるため、リモート接続と関係があると想定しています。何か案は?
inFile = "ftp://username:password@xxx.xxx.xxx.xxx/test.txt"
File_Delete(inFile)
Sub File_Delete (inFile)
dim strProc, objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(inFile) Then
objFSO.DeleteFile infile
end if
set objFSO = nothing
end sub