GBKEE

¦^´_ 1# adrian_9832
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim xPath As String, xBat As String, St As String, Msg As Boolean
   
4.     xPath = "d:\"                 '«ü©wªº¸ê®Æ§¨
   
5.     xBat = xPath & "Print.Bat"    'Bat-> DOS ¤U¦Û°Ê°õ¦æªºÀÉ®×
   
6.     St = Dir(xPath & "*.txt", vbDirectory)   '¬d¬Ý«ü©w°ÆÀɦWªºÀÉ®×
   
7.     If St <> "" Then
   
8.         Msg = True
   
9.         With CreateObject("Scripting.FileSystemObject").CreateTextFile(xBat, 1)      '«Ø¥ß¤@­ÓÀÉ®×
   
10.             .Write "PRINT " & xPath & St & vbCrLf      '¼g¤J
    
11.             St = Dir    '¬d¬Ý¤U¤@­ÓÀÉ®×
    
12.             Do While St <> ""
    
13.                 .Write "PRINT " & xPath & St & vbCrLf
    
14.                 St = Dir
    
15.             Loop
    
16.             .Close
    
17.         End With
    
18.         If Msg Then Shell xBat  '°õ¦æµ{¦¡
    
19.         Kill xBat    '§R°£¤@­ÓÀÉ®×
    
20.     End If
    
21. End Sub

½Æ»s¥N½X