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

¦p¦ó°±¤î«Ì¹õ°{°Ê

¦^´_ 1# ikboy
¦pªG¬O­n¨ú±oºÏºÐ¼ÐÅÒ¦WºÙ©MºÏºÐ§Ç¸¹¡A¥i¸Õ¸Õ¤£¦P¤èªk
  1. Sub Test()
  2.     Dim oFS As Object, oDrive As Object
  3.     Set oFS = CreateObject("Scripting.FileSystemObject")
  4.     Set oDrive = oFS.drives("D")
  5.    
  6.     Debug.Print "¼ÐÅÒ: " & oDrive.VolumeName
  7.     Debug.Print "§Ç¸¹: " & Hex(oDrive.SerialNumber)
  8. End Sub
½Æ»s¥N½X
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

        ÀR«ä¦Û¦b : §g¤l¥ß«í§Ó¡A¤p¤H«í¥ß§Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD