VB .Net ÀûÓÃFTP.exeÉÏ´«ÎļþÖÁFTP·þÎñÆ÷
Public Class Form1
Private Sub CmdTrans_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdTrans.Click
Dim psi As New System.Diagnostics.ProcessStartInfo
Dim ftpFileName As String
psi.FileName = "ftp.exe"
psi.RedirectStandardInput = False
psi.RedirectStandardOutput = True
psi.UseShellExecute = False
ftpFileName = "E:\ftp.txt"
psi.Arguments = "-s:" & ftpFileName
Dim proc As Process
proc = Process.Start(psi)
'Wait process
proc.WaitForExit()
Console.WriteLine(proc.StandardOutput)
Console.ReadLine()
End Sub
End Class
ftp.txtÖеÄÄÚÈÝ£º
open 192.168.1.110
user dumeifang dumeifang
put E:\ip.html
quit
¿ØÖÆÌ¨ÖеÄÊä³ö£º
ftp> open 192.168.1.110
Connected to 192.168.1.110.
220 Serv-U FTP Server v8.2 ready...
User (192.168.1.110:(none)):
530 Invalid user name.
Login failed.
ftp> user dumeifang dumeifang
331 User name okay, need password.
230 User logged in, proceed.
ftp> put E:\ip.html
200 PORT Command successful.
150 Opening ASCII mode data connection for ip.html.
226 Transfer complete. 1,672 bytes transferred. 1.63 KB/sec.
ftp: ·¢ËÍ 1672 ×Ö½Ú£¬ÓÃʱ 0.00Seconds 1672000.00Kbytes/sec.
ftp> quit
221 Goodbye, closing session.
ftp -s:filenameÊǰÑһЩftpµÄÃüÁîдÈëfilenameÖУ¬FTP×Ô¶¯ÔËÐÐÀïÃæµÄÄÚÈÝ
Ïà¹ØÎĵµ£º
****ʲôÊǶþ´Î¿ª·¢?
Ò»°ãµÄÀ´Ëµ£¬Ò»Ð©´ó¹«Ë¾ÈçIBM¡¢MS¿ª·¢ÁËÒ»¸ö´óÐ͵ÄÈí¼þϵͳƽ̨£¬¸ù¾Ý²»Í¬µÄ¿Í»§µÄÐèÒª£¬Ò»Ð©ÆäËüµÄÖÐС¹«Ë¾Îª¿Í»§¸ù¾ÝÐèÇóÔÚ¸ÃÆ½Ì¨ÉϽøÐеڶþ´ÎÓÐÕë¶ÔÐԵĿª·¢£¬Õⱻͳ³ÆÎª¶þ´Î¿ª·¢¡£
¡¡ ¶þ´Î¿ª·¢Òª¿´Èí¼þÊÇ·ñÌṩÏàÓ¦µÄ½Ó¿Ú£¬ÓеãÈí¼þ¹«Ë¾Ö»ÌṩÈí¼þ£¬µ«Ò²ÓÐС¹«Ë¾Á¬´úÂëÒ»Æð³öÊÛ£¬È ......
¹ØÓÚActiveXµÄ½Ì³Ì
Visual BasicÊÇÃæÏò¶ÔÏóµÄ³ÌÐòÉè¼ÆÓïÑÔ£¬Î¢Èí¹«Ë¾ÍÆ³öÁËActiveX¼¼Êõ£¬ÀûÓÃActiveX¼¼ÊõÌá³öµÄ±ê×¼£¬¶Ô½çÃæµÄÉè¼Æ½øÐÐÁË·â×°£¬ÐγÉÁËһϵÁбà³Ì¿Ø¼þ£¬¼´Ìض¨¹¦ÄܵijÌÐòÄ£¿é¡£ÔÚ³ÌÐòµÄÉè¼ÆÖУ¬Éè¼ÆÈËÔ±Ö»ÐèÒªÍ϶¯ËùÐè¿Ø¼þµ½´°Ì壬Ȼºó¶Ô¿Ø¼þ½øÐÐÊôÐÔÉèÖúÍʹÓÃÆä·½·¨¡¢Ê¼þ¼´¿É£¬´ó´ó¼õÇáÁË·±ËöµÄ³ÌÐòÉè¼Æ¡ ......
ʹÓÃoracleÊý¾Ý¿âÓÐÁ½ÖÖ·½·¨£º
1¡¢ÔÚ¿Í»§¶Ë»úÆ÷Éϰ²×°oracleµÄ¿Í»§¶ËÈí¼þ¡£Î¨Ò»µÄÀýÍâ¾ÍÊÇjavaÁ¬½ÓÊý¾Ý¿âµÄʱºò£¬¿ÉÒÔÓÃjdbc thinģʽ£¬²»ÓÃ×°oracleµÄ¿Í»§¶ËÈí¼þ¡£
2¡¢Èç¹ûÄãÔÚ»úÆ÷É ......
±¾³ÌÐòÓÐÒ»²Ëµ¥¿ªÊ¼£¬ÀïÃæÓвéѯ£¬É¾³ý£¬Ð޸ģ¬Ìí¼Ó£¬³ÌÐò²»Ò»Ò»Áгö£¬Ö»Ð´³ö»ù±¾µÄ¹ý³Ì£¬Á¬½ÓÊý¾Ý¿â²ÉÓñê׼ģ¿é£º
'Public publicstr As String
Public conn As ADODB.Connection
Public rs As ADODB.Recordset
Public Sub main() 'Êý¾Ý¿âÁ¬½Ó¹²Ïíº¯Êý
Set conn = New ADODB.Connect ......