- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
回復 5# jakcy1234
那些檔案是 從下載軟件 download 到電腦 , 下載到C:\嗎?
不是要修改 -> File_Nane = Dir("C:\auto_download_page\*.xls") '搜尋資料夾裡的副檔名
這 C:\auto_download_page\chap42589_00001_2013_0830_1457 的副檔名是xls ??
不是或所有檔案 -> File_Nane = Dir("C:\auto_download_page\*.*") '搜尋資料夾裡所有檔案
- Option Explicit
- Sub Ex()
- Dim fs As Object, File_Nane As String
- Set fs = CreateObject("Scripting.FileSystemObject")
- File_Nane = Dir("C:\*.xls") '搜尋資料夾裡的副檔名
- Do While File_Nane <> ""
- Set fs = CreateObject("Scripting.FileSystemObject").GetFILE(File_Nane)
- If UBound(Split(File_Nane, "_")) > 0 Then '檔案名稱中有 "???_???_"
- If Val(Split(File_Nane, "_")(1)) >= 6 And fs.Size / 1024 > 70 Then '00006 以後的 size 超過 70kb的檔案
- Workbooks.Open (fs)
- Else
- Kill fs '在電腦自動刪除 ' 或不讀取->註解這程式碼不執行
- End If
- Else
- Kill fs '在電腦自動刪除 ''檔案名稱中沒有 "????????_?????"
- '或不讀取 -> 註解這程式碼不執行
- End If
- File_Nane = Dir '搜尋資料夾裡下一個相同的副檔名
- Loop
- End Sub
|
|
發表於 2013-9-1 13:41
| 
