返回列表 上一主題 發帖

[發問] 語法問題

lcc_seven

帖子
21 
主題
2 
精華
0 
積分
27 
點名
0  
作業系統
win7 
軟體版本
office2010 
閱讀權限
10 
性別
男 
來自
Tainan 
註冊時間
2012-1-3 
最後登錄
2013-2-28 
1# 跳轉到 »
發表於 2012-1-4 23:19 | 顯示全部帖子
回復 1# pitera88

很直覺的語法

'刪除檔案
Sub DeltxtFile()
Kill "D:\test.txt"
End Sub

'刪除資料夾
Sub DelDir()
RmDir "D:\test"
End Sub

TOP

lcc_seven

帖子
21 
主題
2 
精華
0 
積分
27 
點名
0  
作業系統
win7 
軟體版本
office2010 
閱讀權限
10 
性別
男 
來自
Tainan 
註冊時間
2012-1-3 
最後登錄
2013-2-28 
2#
發表於 2012-1-5 00:43 | 顯示全部帖子
單純使用Delete語法方式如下：(沒有加if判別，請自行先建立D:\test.txt)
至於force的用法：選擇項。決定唯讀檔案或資料夾是否可以刪除的布林值，若是 True 則刪除，False 不刪除(預設值)。

Sub DeleteFile()
Dim FSO As Object
Dim DelFile As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Set DelFile = FSO.GetFile("D:\test.txt")
DelFile.Delete
End Sub

TOP

lcc_seven

帖子
21 
主題
2 
精華
0 
積分
27 
點名
0  
作業系統
win7 
軟體版本
office2010 
閱讀權限
10 
性別
男 
來自
Tainan 
註冊時間
2012-1-3 
最後登錄
2013-2-28 
3#
發表於 2012-1-5 00:49 | 顯示全部帖子
回復 6# pitera88

如果要刪除資料夾

Sub DeleteFolder()
Dim FSO As Object
Dim DelFolder As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Set DelFolder = FSO.GetFolder("D:\新資料夾")
DelFolder.Delete
End Sub

PS：直接刪除，不會提示資料夾裡面是否有檔案。

TOP

        靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。
返回列表 上一主題