1樓：匿名使用者
on error resume next
a = "e:\s\" & forms(0).text1.textmkdir a
if err.number = 75 thenmsgbox ("error # " & cstr(err.number) & " " & err.
description) & vbcrlf & a & "這個資料夾已經存在了。不必要建立，所以直接執行複製！"
err.clear
end if
filecopy "e:\s\admin.doc", "e:\s\" & forms(0).text1.text & "\" & "admin.doc"
'其實很簡單的問題，mkdir 語句在建立資料夾的時候如果你以前存在了就出現錯誤75拉。還有你的檔案的目錄也不對，自己檢查下吧 呵呵
2樓：匿名使用者
filecopy "e:\s\admin.doc", "e:
\s & " \ " & forms(0).text1.text & " \ " & admin.
doc" 應該是
filecopy "e:\s\admin.doc", "e:\s" & "\" & forms(0).text1.text & "\admin.doc"
另外要確保forms(0).text1.text 不空，e:\s資料夾存在，e:\s\admin.doc檔案也存在。
3樓：
錯誤有兩個:
1 建立目錄之前需要進行檢查,否則會導致系統報錯,程式非正常退出2 filecopy 語句中的字串連線錯誤:
修改如下:
dim strpath as stringstrpath = "e:\s\" & trim(forms(0).text1.text)
if dir(strpath)="" then mkdir strpath
filecopy "e:\s\admin.doc", strpath & "\admin.doc"
求教VB問題，求教乙個VB問題
你用超級計算機 執行你的程式估計就幾分鐘的事情了 呵呵 用數學演算法 33 32 31 30 29 28 6 5 4 3 2 1 1107568 如果用迴圈，那就是 dim s as long for i1 1 to 28 for i2 i1 1 to 29 for i3 i2 1 to 30 fo...
感情問題，高分求教啊
個人感覺，不可能是a做的，這個人你們都這麼喜歡他，他應該不會是這種會玩這點小計量的人。我本人感覺這個像b放的，剛才下面那個回答的也說了，要麼託人放的，要麼自己放的，這確定是像在警告或者讓你知難而退。這句告訴a要好好學習，這句，我想是誰都會說出來的，因為你們現在還年輕，思想還比較單純，這句告訴a要好好...
關於vb的素數判斷問題高分懸賞，關於VB的素數判斷問題（高分懸賞
function prime byval n as integer as boolean if n 1 then prime false exit function dim i as integer prime true for i 2 to n 1 if n mod i 0 then prime ...
高分求教高手驗證碼總是顯示錯誤，高分求教高手驗證碼總是顯示錯誤
看你的電腦系統了 一些要求身份驗證的 使用在asp中動態生成xbm格式 的方法來顯示驗證碼,但xp sp2預設設定不支援xbm格式 可通過修改登錄檔來解決 執行 regedit 開啟登錄檔編輯器 點選屬標定位到 heky local machine software microsoft intern...
高分求教持續性腹瀉，高分求教！持續性腹瀉！！
你的症狀是中醫肝鬱洩瀉問題。主要是因情志失調煩惱鬱怒，肝氣不舒，橫逆克脾，脾失健運，公升降失調 或憂鬱思慮，脾氣不運，土虛木乘，公升降失職 或素體脾虛，逢怒進食，更傷脾土，引起脾失健運，公升降失調，清濁不分，而成洩瀉。此肝脾二髒之病也。蓋以肝木剋土，脾氣受傷而然。症狀可見 每逢抑鬱惱怒，或情緒緊張之...