p = p & "\Library"
p1 = p & "\1_Library"
MsgBox(p)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFolder p , p1
為什么這么寫不行呢
uj5u.com熱心網友回復：
它提示什么錯誤？應該是不能把某目錄拷到“自己子目錄”中去吧！
你把“目標路徑”換個地方啊，干嗎指定在源目錄之下！
uj5u.com熱心網友回復：
p1 = p & "\PEDC3_Library"p2 = p & "\PEDC3_1_Library"
MsgBox(p)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFolder p1 , p2
p是我動態獲取的程式啟動路徑
改過了之后報 錯誤的檔案名或號碼
大神幫幫忙啊
uj5u.com熱心網友回復：
最后一行 13位元組處uj5u.com熱心網友回復：
最后一行13字符uj5u.com熱心網友回復：
“錯誤的檔案名或號碼”，你確定是這個錯誤？
你的“源檔案夾”中是否包含沒有“讀檔案”（實際可能是沒有任何訪問權限）的檔案或檔案夾？
另外就是，“目標檔案夾”你是否有寫入的權限？
uj5u.com熱心網友回復：
人家檔案有擴展名吧。uj5u.com熱心網友回復：
拷貝檔案還是拷貝檔案夾？另外，在一些系統中fso被禁用了，特別是山寨盜版的windows系統。vb自帶的拷貝是filecopy陳述句
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/52793.html
標籤：VB基礎類
下一篇：API LoadImage