2016-09-23 123 views

回答

1

有幾種方法可以做到這一點,但最簡單的方法可能是Kill

刪除一個文件

Sub MySub() 
    Dim myPath as String 

    myPath = "\\server\Folder\File" 

    If Dir(myPath) <> "" Then Kill myPath 
End Sub 

刪除同一類型

Sub MySub() 
    Dim myPath as String 

    myPath = "\\server\Folder\*.xls" 

    If Dir(myPath) <> "" Then Kill myPath 
End Sub 

的多個文件刪除文件夾

Sub MySub() 
    Dim myPath as String 

    myPath = "\\server\Folder\*.*" 

    If Dir(myPath) <> "" Then Kill myPath 
End Sub 
中的所有文件

刪除整個文件夾

Sub MySub() 
    Dim myPath as String 

    myPath = "\\server\Folder\*.*" 
    myFolder = "\\server\Folder\" 

    If Dir(myPath) <> "" Then 
     Kill myPath 
     RmDir myFolder 'For RmDir to work, the folder has to be empty 
    End If 
End Sub 

還有更多的方法可以做到這一點,我只是顯示具有Kill一個例子。你也可以使用FSO來完成所有這些。

重要事項:您無法撤消刪除這樣的項目。這會永久刪除文件。 (它不會去回收站,你不能把文件恢復生命,你已經殺死。)

+0

我沒有得到如何使用它作爲一個FTP ... 如果我的服務器是一些IP我把它放在「服務器」部分,它不工作。 訪問這個目錄從Windows我會做的FTP://服務器,它會在Windows中工作。 沒有方法在vba中工作。 我將如何設置mypath直接到一個ftp文件夾? –

+0

我不能編輯我以前的評論,只是想說kill命令是用於文件而不是用於文件夾。 我想要更多的選擇。 –

+0

@matanjustme所以,事實是,你並沒有真正向我提供任何代碼,所以我提供了一種刪除文件的方法,並進行了更新,以向你展示如何刪除文件夾。至於編寫代碼導航到特定文件或FTP文件夾,這將是一個不同的問題..... – Tyeler