Board logo

標題: [發問] 語法問題 [打印本頁]
作者: pitera88    時間: 2012-1-4 18:14     標題: 語法問題

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

object.Delete force

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

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

我是想刪某個資料夾裏的檔案，不是活頁簿裏的內容哦
作者: pitera88    時間: 2012-1-4 22:55

回復 1# pitera88


    有大大幫一下嗎
一直找不到答案，謝謝哦
作者: lcc_seven    時間: 2012-1-4 23:19

回復 1# pitera88

很直覺的語法

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

'刪除資料夾
Sub DelDir()
RmDir "D:\test"
End Sub
作者: pitera88    時間: 2012-1-4 23:59

回復 3# lcc_seven


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

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

謝謝哦
作者: kimbal    時間: 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
作者: pitera88    時間: 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") 這是什麼涵數?? 是什麼意思? 在說明裏找的到嗎?
作者: lcc_seven    時間: 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
作者: lcc_seven    時間: 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：直接刪除，不會提示資料夾裡面是否有檔案。
作者: GBKEE    時間: 2012-1-5 07:31

回復 6# pitera88


    [attach]9069[/attach]
作者: pitera88    時間: 2012-1-5 14:03

回復 9# GBKEE


    謝謝gbkee大大，受教了

感恩，努力k文
作者: linsurvey2005    時間: 2012-1-12 15:17

本帖最後由 linsurvey2005 於 2012-1-12 16:16 編輯

回復 7# lcc_seven


    lcc_seven 前輩好:
    怎麼運用在已經開啟的檔案
       比如:已經開啟檔案"123.xls",條件不符就刪除檔案"123.xls"
           條件式 IF Sheets(1).Range("A1") <> "123" Then  ActiveWorkbook.Name.Delete   '刪除檔案"123.xls"
作者: GBKEE    時間: 2012-1-12 16:50

回復 11# linsurvey2005
  1. Sub Ex()
  2.     Dim F As String
  3.     If Sheets(1).Range("A1") <> "123" Then
  4.         With ActiveWorkbook
  5.             F = .FullName      '傳回物件的名稱，包括其磁碟路徑
  6.             .Close 0           '關閉檔案
  7.         End With
  8.         Kill F     '刪除檔案"123.xls
  9.     End If
  10. End Sub
複製代碼
作者: linsurvey2005    時間: 2012-1-12 17:20

回復 12# GBKEE


GBKEE 前輩好:
只能關閉檔案不能整個刪除(包含垃圾桶也是)~^.^
比方說檔案存放路徑"D:\test整個消失在電腦\123.xls"----跟存放路徑有差別嗎?
路徑自動抓取比較方便~請教有三
作者: GBKEE    時間: 2012-1-12 17:56

回復 13# linsurvey2005
只能關閉檔案不能整個刪除(包含垃圾桶也是)
是123.xls檔案不能刪除嗎? ,  請問  Sheets(1).Range("A1")   是 123.xls的Sheets(1) ,
那當然刪不掉
           .Close 0           '先關閉檔案
        End With
        Kill F     '刪除檔案"123.xls 沒辦法執行


因為你的說的不是很清楚!!
作者: HSIEN6001    時間: 2012-7-12 10:59

本帖最後由 HSIEN6001 於 2012-7-12 12:14 編輯

回復 14# GBKEE

請問GBKEE大,如何完成

需求：
資料夾內 "ANY*.xls" 的所有檔名
如果該表格Sheets(1).Range("A2") <> "日期"
就刪除該檔案.xls
  1. Sub Ex()
  2. Dim F As String, xpath As String, xfile As String
  3. xpath = "D:\測試\"
  4. xfile = Dir(xpath & "ANY*.xls")
  5.     Do While xfile <> ""
  6.         If Sheets(1).Range("A2") <> "日期" Then
  7.             With ActiveWorkbook
  8.                 F = .FullName      '傳回物件的名稱，包括其磁碟路徑
  9.                 .Close 0           '關閉檔案
  10.             End With
  11.             Kill F     '刪除檔案"123.xls
  12.         End If
  13.         xfile = Dir
  14.     Loop
  15. End Sub
複製代碼
執行結果會直接關閉巨集該檔案
作者: HSIEN6001    時間: 2012-7-12 12:17

本帖最後由 HSIEN6001 於 2012-7-12 12:18 編輯

回復 12# GBKEE


我終於想通了^^
[已解決]
  1. Sub EX()
  2.     Dim F As String, xpath As String, xfile As String
  3.     xpath = "D:\測試\"   
  4.     xfile = Dir(xpath & "ANY*.xls")
  5.     Do While xfile <> ""
  6.         With Workbooks.Open(xpath & xfile)
  7.         If Sheets(1).Range("A2") <> "日期" Then
  8.             With ActiveWorkbook
  9.                 F = .FullName      '傳回物件的名稱，包括其磁碟路徑
  10.                 .Close 0           '關閉檔案
  11.             End With
  12.         End If
  13.     Kill F     '刪除檔案"123.xls
  14.         End With
  15.         xfile = Dir
  16.     Loop
  17. End Sub
複製代碼




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)