Thanks Bantuannya akan saya coba.
________________________________ From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of aries Sent: Tuesday, June 19, 2007 04:40 PM To: [email protected] Subject: Re: [indoprog-vb] Program dengan Parameter 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] <mailto:wahyu.wijanarko%40aplcare.com> > 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] _____________________________________________________________________ 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 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]
