複製每一個在zip檔中的檔案. For Each ofile In theShell.Namespace(srFolder).items ... 將容器名稱的副檔名改為xlsx ... subDir = Dir() End If Loop RmDir theDir
確定! 回上一頁