返回列表 上一主題 發帖

[發問] 如何簡化程式?

[發問] 如何簡化程式?

各位大大

小弟寫了一些程式如下
  fnra = fd & "RRR\" & A.Offset(, -4) & "\LAN0"
  fnrb = fd & "RRR\" & A.Offset(, -4) & "\LAN1"
  fnrc = fd & "RRR\" & A.Offset(, -4) & "\LAN2"
  fnrd = fd & "RRR\" & A.Offset(, -4) & "\LAN3"
  fnre = fd & "RRR\" & A.Offset(, -4) & "\LAN4"
  fnrf = fd & "RRR\" & A.Offset(, -4) & "\LAN5"
  fnrg = fd & "RRR\" & A.Offset(, -4) & "\LAN6"
  fnrh = fd & "RRR\" & A.Offset(, -4) & "\LAN7"
  fnri = fd & "RRR\" & A.Offset(, -4) & "\LAN8"   

  fso.copyfolder fnra, fr, True  
  fso.copyfolder fnrb, fr, True  
  fso.copyfolder fnrc, fr, True  
  fso.copyfolder fnrd, fr, True  
  fso.copyfolder fnre, fr, True  
  fso.copyfolder fnrf, fr, True  
  fso.copyfolder fnrg, fr, True  
  fso.copyfolder fnrh, fr, True  
  fso.copyfolder fnri, fr, True  

  如何簡化程式?

  煩請先進 大大指導

本帖最後由 luke 於 2012-4-30 19:29 編輯

回復 7# Hsieh

謝謝

TOP

        靜思自在 : 君子如水,隨方就圓,無處不自在。
返回列表 上一主題