『寫完就發現這個**不用寫得這麼重複的
sub shanchuwenjian()
dim str as string
dim str2 as string
'這個vba**是後處理的**,載入階段未接觸上進行修正
dim i, jj, kk as integer
dim wb as workbook
for i = 1 to 10
str = dir("c:\users\dell\desktop\儲存\*.*") 'str就是帶有.xlsx的檔名
if str = "" then
exit for
end if
kill "c:\users\dell\desktop\儲存\" & str
str = dir
if str = "" then
exit for
end if
next
for jj = 1 to 10
str = dir("c:\users\dell\desktop\二次後處理\*.*") 'str就是帶有.xlsx的檔名
if str = "" then
exit for
end if
kill "c:\users\dell\desktop\二次後處理\" & str
str = dir
if str = "" then
exit for
end if
next
for kk = 1 to 10
str = dir("c:\users\dell\desktop\測試\*.*") 'str就是帶有.xlsx的檔名
if str = "" then
exit for
end if
kill "c:\users\dell\desktop\測試\" & str
str = dir
if str = "" then
exit for
end if
next
end sub
vba開啟關閉資料夾下的所有檔案
因為自己昨天想不通,在路上想了一會兒,今天過來一會兒就想明白了,看來做事還是講效率比較好,磨時間沒意義 sub dakaiguanbi 這個 就是進行二次後處理並生成建立新的excel dim str as string 這個vba 是後處理的 載入階段未接觸上進行修正 dim wb as work...
iOS 刪除資料夾下所有檔案
源 有時候需要在ios系統裡面,刪除指定資料夾的內容,資料夾裡面可能是檔案,也可能包含有資料夾。刪除指定型別的檔案。方法如下 nsstring extension m4r nsfilemanager filemanager nsfilemanagerdefaultmanager nsarray pa...
linux刪除資料夾下所有檔案
刪除當前目錄下的檔案 1.rm f 最經典的方法,刪除當前目錄下的所有型別的檔案 2.find type f delete或find type f exec rm f 用find命令查詢普通檔案並刪除or用find命令的處理動作將其刪除 3.find type f xargs rm f 用於引數列表...