Dim i As Long i = Shell("c:\windows\command.com /k", vbNormalFocus) Clipboard.Clear Clipboard.SetText "dir > C:\windows\desktop\test1.txt" & Chr$(13) AppActivate i SendKeys "% ep", True SendKeys "% c", True Unload Me
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question