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

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

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

­P¤j¤j­Ì,

½Ð°Ý¹á¤U¥N½X­n¦p¦ó¤~¥i¥H°±¤î«Ì¹õ°{°Ê.
  1. Sub zz()
  2. Debug.Print CreateObject("WScript.Shell").exec("%comspec% /c " & """VOL c:""").StdOut.ReadAll
  3. End Sub
½Æ»s¥N½X

¦hÁÂPKKO, ³o¤èªk¤£¾A¥Î©ó¦¹.
¦¹¥N½X°N¬OÀH«K¤Þ¥Î¤@¨ÇDOSªº¬d¸ß, §â¶Ç¦^ªº DEBUG PRINT ¥X¨Ó¡C

TOP

stillfish00§A¦n,

·Q¨Ó¬O§ÚÁ|¨Ò°ÝÃD¤£¦n, ¥H dir ¨Ó°µ¨Ò¤l, fso ¬O«Ü¦nªº¸Ñ¨M«Ì¹õ°{°Ê, ¦ý§Ú¬O·Q©óshell ¤¤¥ÎDOS ¬d¸ß, ¦Ó¯à±±¨î«Ì¹õ°{°Ê, ¨Ò¦p­n¬d¸ß xcop /?, fso «K¤£¯à°µ¨ì, ¥H¤U¥N½X«K¯à°µ¨ì, ¦ý¦³«Ì¹õ°{°Ê¡C

Sub zz()
Debug.Print CreateObject("WScript.Shell").exec("%comspec% /c xcopy /?").StdOut.ReadAll
End Sub

TOP

jackyq,
........,0,1 > .txt ¬O¥i¥H, §Ú¤@¦V³£¬O³o¼Ë°µ, ¦ý§Ú´N¬O·Q¤@¦¸¹L©ñ¤J¼Æ²Õ, §Ú´¿°t¦X¹L clip «ü¥O©ñ¤J°Å¶Kï, ¤w¦¨¥\, ¦ý.........stdout ¦ü¥G§ó§Ö±¶¤Î²³æ¡C ¥Ø«e´N¬O¦p¦ó¥t CreateObject("WScript.Shell").Exec ¦p CreateObject("WScript.Shell").Run ¯ë,°µ¨ì¦³µ¡¤fÁô½ª¥\¯à¡C

TOP

        ÀR«ä¦Û¦b : ¨ü¤HÂI¤ô¤§®¦¡A¶··í´é¬u¥H³ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD