1樓：匿名使用者
private sub command1_click()
dim path1 as string
dim path2 as string
dim filename as string
path1 = "d:\1\" '自己使用方法獲取路徑名
path2 = "d:\1\2\" '自己使用方法獲取路徑名
do until dir(path2) = ""
filename = dir(path2)
filecopy path2 & filename, path1 & filename
kill path2 & filename
loop
rmdir path2
end sub
private sub command2_click()
dim path1 as string
path1 = "d:\1\" '自己使用方法獲取路徑名
do until dir(path1) = ""
kill path1 & dir(path1)
loop
rmdir path1
end sub
2樓：匿名使用者
這個反正就是file.delete file.copy file.move 等的組合麼.自己看著幫助,然後組織好邏輯關係應該不難.
vb高手進來指點一下....
vb乙個小程式執行不出來，高手進來指點下!
3樓：匿名使用者
if text1.text = "碳的排放量一覽表" or text1.text = "碳的排放量一覽表.xls" then
a1 = 1
label7.caption = "√"
else
a1 = 0
label7.caption = "×"
end if
if text2.text = "2" or text2.text ="兩" then
a12 = 1
label8.caption = "√"
else
a2 = 0
label8.caption = "×"
end if
if text3.text = "i3" or text3.text ="i3" then
a3 = 1
label9.caption = "√"
else
a3 = 0
label9.caption = "×"
end if
if text4.text = "a3" or text4.text = "a3" then
a4 = 1
label10.caption = "√"
else
a4 = 0
label10.caption = "×"
end if
if text5.text = "sheet1" or text5.text = "sheet1" then
a5 = 1
label11.caption = "√"
else
a5 = 0
label11.caption = "×"
end if
label13.caption = (a1 + a2 + a3 + a4 + a5) * 20
4樓：牛人影視
if text1.text = "碳的排放量一覽表" or "碳的排放量一覽表.xls" then
...if text2.text = "2" or "兩" then
寫法錯誤！應該是 if text2.text = "2" or text2="兩" then (其他同)
VB高手進來幫忙看看啊，VB高手進來幫忙看看啊！
夠浪漫,但你的程式裡錯誤太多,特別是一些不該有的錯誤 如command.enabled false 應該是command1.enabled false吧?為了女朋友,耐心還是要有的,程式設計序是要耐得住性子的 急急急 vb高手幫忙看看 謝謝 private sub form queryunload ...
求VB高手幫忙做幾個題，跪求vb高手幫忙做幾題vb選擇題 急！！！會追加分的！謝謝！
打包發給你了，4個按鈕4道題 今日心情不太差,答你個主要程式片吧,基本上修改下就完成的了 1.s text1.text print mid s,2,1 print mid s,1,1 print mid s,3,1 反正既然約定了輸入的是三位整數.直接把text中輸入當字串來弄省事了.2.i val...
求vb高手詳解set acreateobject
宣告乙個物件庫，下一步就是使用這個庫裡面的函式 實際上這個庫就是wshom.ocx檔案 wscript是庫的名字，shell是裡面的乙個物件 vbs中createobject wscript.shell 是什麼意思 給你個正解吧 其實使用者 1029291429 的更改是對的。wscript.cre...