Memindahkan suatu string dari lingkungan VB ke lingkungan DOS

‘Memindahkan suatu string dari lingkungan VB ke lingkungan DOS
’1. Buat 1 Project baru dengan 1 Form dan 2 Commandbutton.
’2. Copy-kan coding berikut ke editor Form yang bertalian.

‘Tips ini menggunakan clipboard untuk melewatkan String dari Visual Basic
‘ke lingkungan DOS, seperti jika user mengetik suatu string di Command Prompt
‘dan menekan Enter…
‘Klik tombol pertama untuk membuka sebuah jendela DOS.
‘Klik tombol kedua untuk melewatkan string ke lingkungan DOS.

‘— Coding ini di Form…
Private Sub Command1_Click()
‘Membuka sebuah jendela DOS secara maximized
Shell (“command.com”), vbMaximizedFocus
End Sub

Private Sub Command2_Click()
‘Bersihkan clipboard
Clipboard.Clear
‘Menyalin string yang Anda lewatkan ke dalam clipboard, termasuk
‘code dari Enter (Chr$(13) = Enter Key)
‘Ganti “Dir *.*” di bawah dengan string yang Ingin Anda lewatkan.
Clipboard.SetText “Dir *.*” + Chr$(13)
‘Fokuskan ke jendela DOS. “MS-DOS Prompt” adalah judul dari
‘jendela DOS. Jika jendela DOS Anda mempunya judul yang lain (Judul adalah
‘yang tertulis di bar atas jendela DOS), ganti “MS-DOS Prompt” di bawah
‘dengan judul jendela DOS Anda.
AppActivate “MS-DOS Prompt”
‘Gunakan fungsi “SendKeys” untuk mengirim string dari clipboard ke
‘lingkungan DOS.
SendKeys “% ep”, 1
End Sub