ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦p¦ó¦b§PÂ_¦³µLÀɮ׫á,¦³«h°õ¦æ µL«h®Ì¹L©O?

[µo°Ý] ¦p¦ó¦b§PÂ_¦³µLÀɮ׫á,¦³«h°õ¦æ µL«h®Ì¹L©O?

Sub ´_­ìÀÉ®×()
    Set fs = CreateObject("Scripting.FileSystemObject")
    aa = Range("AN3").Value 'Ū¨ú¦WºÙ¨M©w­n²¾°Ê­þ­Ó«ü©wÀÉ®×
    ab = Range("AN4").Value 'Ū¨ú¦WºÙ¨M©w­n²¾°Ê­þ­Ó«ü©wÀÉ®×
    fs.movefile "\\boss-pc\¤½¥ÎºÏ°Ï\¼Æ¾Ú\¤pÀ\³æ\105\µ²§ô\" & aa & "", "\\boss-pc\¤½¥ÎºÏ°Ï\¼Æ¾Ú\¤pÀ\³æ\¶i¦æ\"
    fs.movefile "\\boss-pc\¤½¥ÎºÏ°Ï\¼Æ¾Ú\¤pÀ\³æ\105\µ²§ô\" & ab & "", "\\boss-pc\¤½¥ÎºÏ°Ï\¼Æ¾Ú\¤pÀ\³æ\¶i¦æ\"
End Sub
¦]¬°¤£·|¼g¦A¤@°_,©Ò¥H¬O±N¤W¤è«ü¥O©î¦¨¨â¬q,


ª¾¹D¬O¥Îif ©M else  ¦ý¼g¦n«á ¥u§PÂ_¦³µLÀÉ®×,«o¨S¦³°õ¦æ..

¦^´_ 1# starry1314


    ¦³«h°õ¦æ µL«h®Ì¹L, ¸Õ¸Õ¬Ý
on error resume next
fs.movefile "\\boss-pc\¤½¥ÎºÏ°Ï\¼Æ¾Ú\¤pÀ\³æ\105\µ²§ô\" & aa & "", "\\boss-pc\¤½¥ÎºÏ°Ï\¼Æ¾Ú\¤pÀ\³æ\¶i¦æ\"
err.clear
    fs.movefile "\\boss-pc\¤½¥ÎºÏ°Ï\¼Æ¾Ú\¤pÀ\³æ\105\µ²§ô\" & ab & "", "\\boss-pc\¤½¥ÎºÏ°Ï\¼Æ¾Ú\¤pÀ\³æ\¶i¦æ\"
on error goto 0

TOP

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD