帖子: 59
主題: 15
精華: 0
積分: 108
點名: 0
作業系統: winXp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 屏東
註冊時間: 2011-12-16
最後登錄: 2018-8-10

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-1-4 18:14 | 只看該作者

[發問] 語法問題

本帖最後由 pitera88 於 2012-1-4 20:03 編輯

object.Delete force

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

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

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

樓主熱帖

仁兄

pitera88

中學生 Rank: 2

帖子: 59
主題: 15
精華: 0
積分: 108
點名: 0
作業系統: winXp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 屏東
註冊時間: 2011-12-16
最後登錄: 2018-8-10

2^#

發表於 2012-1-4 22:55 | 只看該作者

回復 1# pitera88

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

仁兄

TOP

lcc_seven

小學生 Rank: 1

帖子: 21
主題: 2
精華: 0
積分: 27
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 10
性別: 男
來自: Tainan
註冊時間: 2012-1-3
最後登錄: 2013-2-28

3^#

發表於 2012-1-4 23:19 | 只看該作者

回復 1# pitera88

很直覺的語法

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

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

TOP

pitera88

中學生 Rank: 2

帖子: 59
主題: 15
精華: 0
積分: 108
點名: 0
作業系統: winXp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 屏東
註冊時間: 2011-12-16
最後登錄: 2018-8-10

4^#

發表於 2012-1-4 23:59 | 只看該作者

回復 3# lcc_seven

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

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

謝謝哦

仁兄

TOP

kimbal

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

5^#

發表於 2012-1-5 00:15 | 只看該作者

本帖最後由 kimbal 於 2012-1-5 00:21 編輯

...你說的應該是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

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

pitera88

中學生 Rank: 2

帖子: 59
主題: 15
精華: 0
積分: 108
點名: 0
作業系統: winXp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 屏東
註冊時間: 2011-12-16
最後登錄: 2018-8-10

6^#

發表於 2012-1-5 00:36 | 只看該作者

回復 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") 這是什麼涵數?? 是什麼意思? 在說明裏找的到嗎?

仁兄

TOP

lcc_seven

小學生 Rank: 1

帖子: 21
主題: 2
精華: 0
積分: 27
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 10
性別: 男
來自: Tainan
註冊時間: 2012-1-3
最後登錄: 2013-2-28

7^#

發表於 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

小學生 Rank: 1

帖子: 21
主題: 2
精華: 0
積分: 27
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 10
性別: 男
來自: Tainan
註冊時間: 2012-1-3
最後登錄: 2013-2-28

8^#

發表於 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

GBKEE