技术问答vb鎬庝箞璇诲彇鍘嬬缉鏂囦欢 - 扬州沐宇科技

鍦╒B涓紝鍙互浣跨敤Shell API鏉ヨ鍙栧帇缂╂枃浠躲€備互涓嬫槸涓€涓畝鍗曠殑绀轰緥浠ｇ爜锛屾紨绀哄浣曚娇鐢⊿hell API鏉ヨ鍙栧帇缂╂枃浠讹細

Dim objShell As Object
Dim objFolder As Object
Dim objFile As Object

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace("C:\Path\To\Your\Compressed\File.zip")

For Each objFile In objFolder.Items
    '澶勭悊鍘嬬缉鏂囦欢涓殑姣忎釜鏂囦欢鎴栨枃浠跺す
    Debug.Print objFile.Name
Next

Set objFile = Nothing
Set objFolder = Nothing
Set objShell = Nothing

鍦ㄨ繖涓ず渚嬩腑锛屾垜浠鍏堝垱寤轰竴涓猄hell瀵硅薄锛岀劧鍚庝娇鐢∟ameSpace鏂规硶鎵撳紑鍘嬬缉鏂囦欢銆傜劧鍚庨亶鍘嗗帇缂╂枃浠朵腑鐨勬瘡涓枃浠舵垨鏂囦欢澶癸紝骞惰緭鍑哄畠浠殑鍚嶇О銆傛偍鍙互鏍规嵁闇€瑕佽繘涓€姝ュ鐞嗚繖浜涙枃浠舵垨鏂囦欢澶广€?/p>