gampang tinggal tambah modul trus buat prosedure sub Main. ex
Public Sub Main()
Dim arrCommand() As String
arrCommand = Split(Command$, ";")
MsgBox arrCommand(0) & " -> " & arrCommand(1)
End Sub
jangan lupa startup objectnya diganti menjadi Sub Main
atw kalo parameter yang ingin dilewatkan beda2x lebih kurang jadinya seperti
ini (contoh):
Public Sub Main()
Select Case UCase$(Command$)
Case "/TR" 'transfer data
'prosedure transfer
Case "/ST" 'shutdown
'prosedure shtudown
Case "/A"
Case "/B"
Case Else
End Select
End Sub
jadi pemanggilannnya seperti ini
nama_program /TR
nama_program /ST
dst
"Wijanarko, Wahyu" <[EMAIL PROTECTED]> wrote:
Dear All,
Membuat program VB dengan menjalankan di dos dengan parameter misal
Programnya Proses jadi pada saat di jalankan saya jalankan di dos dengan
parameter tanggal dari sampai dengan dengan seperti ini c:\proses
01\06\2007;18\06\2007. kalau yang pernah buat bisa share ke saya.
Thanks
Wahyu
CONFIDENTIALITY NOTICE: This communication (which term shall include any
attachments) contains information which is confidential and proprietary in
nature and the copyright in which belongs to Interpharma Asia Pacific or a
subsidiary of Interpharma Asia Pacific (hereafter referred to jointly and
singularly as Interpharma) or a third party.
This communication is intended solely for the individual to whom it is
addressed. If you are not the intended recipient of this communication, you may
not disseminate, distribute, copy or otherwise disclose or use the contents of
this communication without the written authority of Interpharma. If you have
received this communication in error, please delete and destroy all copies and
kindly notify the sender by return email or telephone immediately. Thank you.
Interpharma makes no representations or warranties in respect of the integrity
of this communication, including but not limited to any warranty that this
communication is free of errors, viruses or other malicious code, interception
or interference.
__________________________________________________________
This message has been checked for all known viruses by the MessageLabs Virus
Scanning Service. For further information, visit
http:\\www.messagelabs.com\stats.asp
[Non-text portions of this message have been removed]
---------------------------------
Finding fabulous fares is fun.
Let Yahoo! FareChase search your favorite travel sites to find flight and hotel
bargains.
[Non-text portions of this message have been removed]
