[發問] 語法問題

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

2^#

發表於 2012-1-4 22:55 | 顯示全部帖子

回復 1# pitera88

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

仁兄

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

3^#

發表於 2012-1-4 23:59 | 顯示全部帖子

回復 3# lcc_seven

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

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

謝謝哦

仁兄

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

4^#

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

仁兄

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

5^#

發表於 2012-1-5 14:03 | 顯示全部帖子

回復 9# GBKEE

謝謝gbkee大大，受教了

感恩，努力k文

仁兄