'複製出ie臨時資料夾內的swf檔案,也可以是其他型別的檔案,這裡只是簡單演示用fso遍歷資料夾
'引用microsoft scripting runtime
dim m_objfso as new filesystemobject '定義檔案系統物件
private declare function shgetspecialfolderlocation lib "shell32" (byval hwndowner as long, byval nfolder as integer, ppidl as long) as long
private declare function shgetpathfromidlist lib "shell32" alias "shgetpathfromidlista" (byval pidl as long, byval szpath as string) as long
const max_len = 200 '字串最大長度
const pagetmp = &h20& '網頁臨時檔案
private sub ***mand1_click()
dim stmp as string * max_len '存放結果的固定長度的字串
dim nlength as long '字串的實際長度
dim pidl as long '某特殊目錄在特殊目錄列表中的位置
dim tstr as string
'獲得網頁臨時資料夾
shgetspecialfolderlocation 0, pagetmp, pidl
shgetpathfromidlist pidl, stmp
tstr = left(stmp, instr(stmp, chr(0)) - 1)
searchswf tstr
end sub
private sub searchswf(strpath as string)
dim objfolder as scripting.folder '資料夾物件
dim objfile as scripting.file '檔案物件
dim objsubdirs as scripting.folders '資料夾集合物件
dim objloopfolder as scripting.folder '資料夾物件
set objfolder = m_objfso.getfolder(strpath)
for each objfile in objfolder.files
if ucase$(right$(objfile.shortpath, 4)) = ".swf" then
filecopy objfile.path, "c:/testswf/" & objfile.name
end if
next objfile
set objsubdirs = objfolder.subfolders
for each objloopfolder in objsubdirs
searchswf objloopfolder.path
next objloopfolder
set objsubdirs = nothing
set objfolder = nothing
end sub
將檔案複製到臨時資料夾
有的時候由於控制元件的原因，要對多個檔案進行開啟操作。我經常用一個本辦法，將原始檔複製到臨時檔案，可以分別開啟操作並顯示到主介面上。下面是如何將原始檔複製到系統臨時資料夾內的方法。複製原檔案到臨時檔案目錄 string filename temprotator.pdf string temp sys...
從ie臨時資料夾一次複製多個檔案
原文 不能從ie臨時資料夾一次複製多個檔案到別的資料夾了 貼上時會彈出 無法複製 檔案 的對話方塊 怎麼辦？幾個方法 1 1，關掉所有ie程式。2，開啟winrar.3，點winrar工具欄左邊向上箭頭定位到ie臨時資料夾。4，下面一層幾個資料夾選中右擊，點新增到壓縮檔案中 自己選擇目標位置建立壓縮...
C 讀取臨時資料夾gtk演算法
dllimport wininet.dll setlasterror true,charset charset.auto public static extern intptr findfirsturlcacheentry marshalas unmanagedtype.lptstr string ...
php上傳檔案找不到臨時資料夾
錯誤原因 一 配置檔案沒有設定臨時資料夾 二 臨時資料夾沒有或者上級資料夾沒有相應的許可權 處理方式 找到php配置檔案php.ini，找到以下 upload tmp dir 改為 upload tmp dir c windows temp 後面的資料夾路徑根據您的系統來設定 如果是許可權不夠的情況...
MFC中寫入臨時資料夾中的方法
最近在做一個mfc的專案，在vs上執行ok，需要寫出的檔案也能成功寫出，但把程式打包成dll外掛放在測試平臺上，無法正確的在工程目錄下寫出檔案。經過老師的提醒，設定了將檔案寫出到電腦的臨時資料夾下，可以成功寫出。寫檔案的 如下 char temppath 50 dword dwsize 50 get...