0

ファイルが存在する場合、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
4

0 に答える 0