[發問] 語法問題

pitera88

object.Delete force

請問前面的object要怎麼輸入阿??我是想指定某個資料夾，例如："c:\456\" 我用變數也不能用耶

老師還沒教到這，先來問問

我是想刪某個資料夾裏的檔案，不是活頁簿裏的內容哦

pitera88

回復 1# pitera88


    有大大幫一下嗎
一直找不到答案，謝謝哦

lcc_seven

回復 1# pitera88

很直覺的語法

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

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

pitera88

回復 3# lcc_seven


粉不好意思，因為現在再學的是↓
    object.Delete force

這個不是也可以用來刪檔及資料夾嗎  
還是只能刪活頁簿的工作表?

謝謝哦

kimbal

...你說的應該是FILESYSTEMOBJECT

以下是刪檔的:
object.DeleteFile "filename", force
force是true的話, 檔案唯讀時也可delete

dim filesys
Set filesys = CreateObject("Scripting.FileSystemObject")
If filesys.FileExists("c:\somefile.txt") Then
   filesys.DeleteFile "c:\somefile.txt",TRUE
End If

編輯: 看漏了題目,是時候睡了
以下是刪文件夾的:
FORCE是TRUE的話,文件夾有東西都會DELETE

Dim filesys
    Set filesys = CreateObject("Scripting.FileSystemObject")
    If filesys.FolderExists("c:\FOLDER\") Then
       filesys.DeleteFolder "c:\FOLDER", True
    End If

pitera88

回復 5# kimbal

kimbal大大 謝謝哦!!  晚安

    ...你說的應該是FILESYSTEMOBJECT

以下是刪檔的:
object.DeleteFile "filename", force
force是true的話, 檔案唯讀時也可delete

dim filesys
Set filesys = CreateObject("Scripting.FileSystemObject") ->這行
If filesys.FileExists("c:\somefile.txt") Then
   filesys.DeleteFile "c:\somefile.txt",TRUE  ->這行
End If


編輯: 看漏了題目,是時候睡了
以下是刪文件夾的:
FORCE是TRUE的話,文件夾有東西都會DELETE

Dim filesys
    Set filesys = CreateObject("Scripting.FileSystemObject") ->這行
    If filesys.FolderExists("c:\FOLDER\") Then
       filesys.DeleteFolder "c:\FOLDER", True -> 這行
    End If


那2行是必需一起的就是了

再請教 CreateObject("Scripting.FileSystemObject") 這是什麼涵數?? 是什麼意思? 在說明裏找的到嗎?

lcc_seven

單純使用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

lcc_seven

回復 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：直接刪除，不會提示資料夾裡面是否有檔案。

GBKEE

回復 6# pitera88


   

下載 (73.67 KB)

2012-1-5 07:31

pitera88

回復 9# GBKEE


    謝謝gbkee大大，受教了

感恩，努力k文