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

¦h­Ó¤£¦PÀɦWªºÀɮ׳B²z

¦h­Ó¤£¦PÀɦWªºÀɮ׳B²z

Dim OldName, NewName
    OldName = "D:\0607-H7P-N\0607-H-7P-N_002.mdf": NewName =
"D:\0607-H7P-N\0607-H-7P-N_002.000"   ' ©w¸qÀɮצWºÙ¡C
    Name OldName As NewName   ' §ó§ïÀɦW


§Ú­n0607-H-7P-N_002.mdfÀɦW§ï¬°0607-H-7P-N_002.000

¦pªG§Ú¤§«á±Nmdf¤£¦PÀɦW©ñ¤J¦¹¥Ø¿ý¡A­nª½±µ·j´M¸ÓÀɨñN¸ÓªþÀɦW§ï¦¨.000

¬O¤£¬O¥i¥H¥Î*¥Nªí0607-H-7P-N_002¾ã­Ó¦r¦ê¡A§ÚÁÙ¦³¨ä¥Lªº»yªk»Ý­n¥Î¨ì*¥i¥H¥N´À¤£¦PÀɦW

¦]¬°§Ú¤£·|¼gvb¡A³Â·Ð¬O§_¦³¤H¯à°÷À°¦£¸Ñ´b

ÁÂÁÂ

¦^´_ 1# hanababy0813


    ±ÀÂ˨ϥΨä¥LÀɮקó¦W³nÅé
    ¨Ò¦p MyRename
    À³¸Ó¤£¥Î¼gVB§a...
boyao

TOP

§â D:\0607-H7P-N\ ¤U©Ò¦³ .mdf Âର .000
  1. Sub test()

  2.     Dim myFileName
  3.     Dim myPath
  4.     Dim newExt
  5.    
  6.     myFileName = "*.mdf"
  7.     myPath = "D:\0607-H7P-N\"
  8.     newExt = ".000"
  9.    
  10.     myName = Dir(myPath & myFileName)
  11.     Do While myName <> ""
  12.         NewName = Left(myName, Len(myName) - InStr(StrReverse(myName), ".")) & newExt
  13.         Name myPath & myName As NewName
  14.         myName = Dir
  15.     Loop
  16.    
  17. End Sub
½Æ»s¥N½X
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

Kimbal

§Ú°õ¦æ«á¡A¥L¤@ª½¥X²{Àɮפw¦s¦bªºµøµ¡

¦³­þ­Ó³¡¤À­n§ïªº¶Ü?

TOP

¦^´_ 4# hanababy0813


    ¥i¦b«e­±¥[¤W
    Application.DisplayAlerts = False  


    ³Ì«á°õ¦æ§¹¥[¤W
    Application.DisplayAlerts = true

    ¥i¥HÃö±¼´£¥Üµøµ¡~ ³o¼Ë·|ª½±µ±NÀÉ®×Âл\¹L¥h­ò~ ½Ð½T©w§Aªº§@·~¬O§_­n³o¼Ë³B²z
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

        ÀR«ä¦Û¦b : ¦³´¼¼z¤~¯à¤À¿ëµ½´c¨¸¥¿¡F¦³Á¾µê¤~¯à«Ø¥ß¬üº¡¤H¥Í¡C
ªð¦^¦Cªí ¤W¤@¥DÃD