這段代碼的問題是:
成都創(chuàng)新互聯(lián)公司專業(yè)為企業(yè)提供彭澤網(wǎng)站建設(shè)、彭澤做網(wǎng)站、彭澤網(wǎng)站設(shè)計、彭澤網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計與制作、彭澤企業(yè)網(wǎng)站模板建站服務(wù),十多年彭澤做網(wǎng)站經(jīng)驗,不只是建網(wǎng)站,更提供有價值的思路和整體網(wǎng)絡(luò)服務(wù)。
首先for each循環(huán)在files里查找文件對象,但是f變量聲明為string了,無法讓它獲取對象;
然后file.copy的變量file沒有任何聲明,也沒有初始化賦值等;
最后,整個for each循環(huán)里查找集合files的文件,由于初始化的循環(huán)計數(shù)器仍然按照最初設(shè)定的文件數(shù)目向后遞增(文件地址),但是實際文件刪除一部分,后續(xù)的文件位置就不能跟循環(huán)計數(shù)指針匹配了,所以默認(rèn)為查找不到文件,將會報錯。一般的做法時把復(fù)制和刪除分別放在2次循環(huán)里,第一次只復(fù)制文件,第二次才去刪除。
用Directory.CreateDirectory即可創(chuàng)建文件夾:
'?建立目錄
If?Not?Directory.Exists("C:\負(fù)屃\"??TextBox1.Text)?Then?'檢查文件夾是否存在
Directory.CreateDirectory("C:\負(fù)屃\"??TextBox1.Text)??'不存在,創(chuàng)建文件建夾
End?If
你的例子是因為少了一個"\"引起的,正確的如下:
Dim?fsotest?As?New?FileSystemObject
If?fsotest.FileExists("C:\負(fù)屃\"??TextBox1.Text)?=?False?Then
fsotest.CreateFolder("C:\負(fù)屃\"??TextBox1.Text) '這里你少了一個\
End?If
MsgBox("創(chuàng)建成功")
老實說不一定要webBrowser,這是Windows下載文件界面啊,不是VB.Net畫出來的。
真的是做下載文件,WebClient.DownloadFile方法就足夠了,調(diào)用方法后會自動彈出Windows下載任務(wù)窗口。
在VS.NET里也提供了一個com接口,可以直接調(diào)用迅雷的dll,下載文件可以讓你自由選擇是用迅雷下載還是通過Windows下載任務(wù)來執(zhí)行下載。
webBroser下載文件
FileInfo?file?=?new?System.IO.FileInfo(Server.MapPath(path));
if?(File.Exists(Server.MapPath(path)))
{
string?name?=?Path.GetFileName(Server.MapPath(path));
//存在文件
Response.Clear();
Response.Buffer?=?false;
//通知瀏覽器下載文件而不是打開?
Response.ContentType?=?"application/octet-stream";
//下載的文件名
Response.AppendHeader("content-disposition",?"attachment;filename="?+?name);
//文件的大小
Response.AppendHeader("Content-Length",???file.Length.ToString());
Response.WriteFile(path);
}
介紹一個更簡單的方法給你,從webbrowser獲取點(diǎn)擊的超連接,然后自由選擇下載,先在引用里引用com組件
然后在點(diǎn)擊事件中加代碼
string?url?=?webBrowser1.Document.Links[1].GetAttribute("href");
ThunderAgentLib.AgentClass?agent?=?new??ThunderAgentLib.AgentClass();//創(chuàng)建對象?
agent.AddTask(url,?"默認(rèn)保存文件名",?"C:\\默認(rèn)路徑",?"",?"",?1,?0,?5);
agent.CommitTasks2(1);//提交
我用的是C#代碼,VB.NET大同小異
vb.net使用控件FolderBrowserDialog1,在程序中:
'設(shè)置對話框中在樹視圖控件上顯示的說明文本
Me.FolderBrowserDialog1.Description
=
"請選擇輸出報表所在路徑:"
'設(shè)置從其開始瀏覽的根文件夾
Me.FolderBrowserDialog1.SelectedPath
=
"c:\"
If
Me.FolderBrowserDialog1.ShowDialog()
=
DialogResult.OK
Then
'取得全路徑(包含文件名)
reportPath1
=
System.IO.Path.GetFullPath(Me.FolderBrowserDialog1.SelectedPath)
'設(shè)定text顯示文件名
txtReport1.Text
=
reportPath1
setReportList()
End
If
在setReportList()中針對你所需要的文件進(jìn)行操作等
新聞名稱:vb.net寫到文件夾 vbnet打開文件路徑
本文來源:http://jinyejixie.com/article10/dohhogo.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站設(shè)計、、網(wǎng)站制作、移動網(wǎng)站建設(shè)、面包屑導(dǎo)航、品牌網(wǎng)站設(shè)計
聲明:本網(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)