vb.net 文件轉(zhuǎn)移

在窗體上放置一個 Timer 控件，Interval 屬性設(shè)置為 120000（120000毫秒=120秒=2分鐘），Enabled 屬性設(shè)置為 True，添加如下代碼：

專注于為中小企業(yè)提供做網(wǎng)站、網(wǎng)站設(shè)計(jì)服務(wù),電腦端+手機(jī)端+微信端的三站合一,更高效的管理,為中小企業(yè)伊州免費(fèi)做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都，凝聚了一批互聯(lián)網(wǎng)行業(yè)人才，有力地推動了上千企業(yè)的穩(wěn)健成長，幫助中小企業(yè)通過網(wǎng)站建設(shè)實(shí)現(xiàn)規(guī)模擴(kuò)充和轉(zhuǎn)變。

Private?Sub?Timer1_Tick(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Timer1.Tick

Dim?dDir1?As?New?System.IO.DirectoryInfo("C:\a")

dDir1.MoveTo("D:\b")??'移動?C:\a?文件夾所有文件到?D:\b????

End?Sub

vb.net ftp上傳文件

Dim OpenFileDialog As New OpenFileDialog

OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments

OpenFileDialog.Filter = "文本文件(*.jpg)|*.jpg|所有文件(*.*)|*.*"

If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then

Dim FileName As String = OpenFileDialog.FileName

' TODO: 在此處添加打開文件的代碼。

textbox1.Text = FileName

End If

第一個按鈕 上傳

Dim filelast As String = fileaddbefore.Text.Substring(fileaddbefore.Text.LastIndexOf("."), fileaddbefore.Text.Length - fileaddbefore.Text.LastIndexOf("."))

MessageBox.Show(filelast)

My.Computer.Network.UploadFile(textbox1.Text, "" 文件名.Text filelast, "登錄名1", "登錄密碼", True, 100)

第二個按鈕

求大神指點(diǎn) vb.net 怎么發(fā)送大文件 我用 UdpClient 的Send只能發(fā)送5000字節(jié)以下的

下載，直接通過url讀取文件，然后Response.OutputStream.Write()數(shù)據(jù)

下面提供個下載的靜態(tài)方法，是C#的，供參考：

///?summary

///?下載文件

///?/summary

///?param?name="fileName"下載的文件名稱（包括擴(kuò)展名）/param

///?param?name="filePath"下載文件的絕對路徑/param

public?static?void?DownFile(string?fileName,?string?filePath)

{

//打開要下載的文件，并把該文件存放在FileStream中????????????????

System.IO.FileStream?Reader?=?System.IO.File.OpenRead(filePath);

//文件傳送的剩余字節(jié)數(shù)：初始值為文件的總大小????????????????

long?Length?=?Reader.Length;

HttpContext.Current.Response.Buffer?=?false;

HttpContext.Current.Response.AddHeader("Connection",?"Keep-Alive");

HttpContext.Current.Response.ContentType?=?"application/octet-stream";

HttpContext.Current.Response.Charset?=?"utf-8";

HttpContext.Current.Response.AddHeader("Content-Disposition",?"attachment;?filename="?+?System.Web.HttpUtility.UrlEncode(fileName));

HttpContext.Current.Response.AddHeader("Content-Length",?Length.ToString());

byte[]?Buffer?=?new?Byte[10000];//存放欲發(fā)送數(shù)據(jù)的緩沖區(qū)????????????????

int?ByteToRead;?//每次實(shí)際讀取的字節(jié)數(shù)???????????????

while?(Length??0)

{????

//剩余字節(jié)數(shù)不為零，繼續(xù)傳送????????????????????

if?(HttpContext.Current.Response.IsClientConnected)

{????

//客戶端瀏覽器還打開著，繼續(xù)傳送????????????????????????

ByteToRead?=?Reader.Read(Buffer,?0,?10000);???????????????????//往緩沖區(qū)讀入數(shù)據(jù)????????????????????????

HttpContext.Current.Response.OutputStream.Write(Buffer,?0,?ByteToRead);????

//把緩沖區(qū)的數(shù)據(jù)寫入客戶端瀏覽器????????????????????????

HttpContext.Current.Response.Flush();?//立即寫入客戶端????????????????????????

Length?-=?ByteToRead;//剩余字節(jié)數(shù)減少????????????????????????????}

else

{?????????????????????????

//客戶端瀏覽器已經(jīng)斷開，阻止繼續(xù)循環(huán)????????????????????????

Length?=?-1;

}

}????????????????//關(guān)閉該文件???????????????

Reader.Close();

}

vb.net怎么實(shí)現(xiàn)串口傳輸文件

Imports System

Imports System.IO.Ports

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'獲取計(jì)算機(jī)有效串口

Dim ports As String() = SerialPort.GetPortNames() '必須用命名空間，用SerialPort,獲取計(jì)算機(jī)的有效串口

Dim port As String

For Each port In ports

portnamebox.Items.Add(port) '向combobox中添加項(xiàng)

Next port

'初始化界面

文章名稱：vb.net傳送文件,vbnet讀取文件內(nèi)容
分享URL：http://chinadenli.net/article22/dsgcjjc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供面包屑導(dǎo)航、網(wǎng)站內(nèi)鏈、商城網(wǎng)站、虛擬主機(jī)、網(wǎng)站制作、標(biāo)簽優(yōu)化

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)