脫離具體的環(huán)境談并沒有任何意義,所以如果當前電腦上存在此文件就是文件,存在此文件夾則為文件夾,否則什么也不是。

肅北網(wǎng)站建設(shè)公司成都創(chuàng)新互聯(lián)公司,肅北網(wǎng)站設(shè)計制作,有大型網(wǎng)站制作公司豐富經(jīng)驗。已為肅北超過千家提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\成都外貿(mào)網(wǎng)站制作要多少錢,請找那個售后服務(wù)好的肅北做網(wǎng)站的公司定做!
'Imports?System.IO
Dim?s?As?String?=?"C:\1.txt"
If?File.Exists(s)?Then
MessageBox.Show("文件")
ElseIf?Directory.Exists(s)?Then
MessageBox.Show("路徑")
Else
MessageBox.Show("什么都不是")
End?If
'通過過System.IO.DirectoryInfo對象可以查閱目錄信息,下面是遍歷一個文件夾下所有層次的子文件夾,如果只檢查下一層目錄就更簡單了。
Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click
Dim?folder?=?New?System.IO.DirectoryInfo("D:\Documents")
Dim?items?=?getemptyfolder(folder)
For?Each?item?In?items
Console.WriteLine(item.FullName)
Next
End?Sub
Function?getemptyfolder(ByVal?folder?As?System.IO.DirectoryInfo)?As?System.IO.DirectoryInfo()
Dim?items?As?New?List(Of?System.IO.DirectoryInfo)
If?folder.EnumerateFiles().Count?=?0?Then
items.Add(folder)
End?If
Dim?subfolders?=?folder.EnumerateDirectories()
For?Each?subfolder?In?subfolders
items.AddRange(getemptyfolder(subfolder))?'查詢樹形目錄結(jié)構(gòu)類型數(shù)據(jù)用遞歸法實現(xiàn)
Next
Return?items.ToArray()
End?Function
'還是學(xué)c#語言吧,我發(fā)覺同樣一個數(shù)組,c#功能多的多,vb.net沒幾條方法可用。
判斷和創(chuàng)建可以放在一起。
創(chuàng)建空文件夾:
Directory.CreateDirectory(文件夾完整路徑)
'系統(tǒng)會自動判斷文件夾是否存在,不存在就創(chuàng)建
判斷并創(chuàng)建空文件:
Using?fs?As?New?FileStream("f.txt",?FileMode.OpenOrCreate)
'你可以用這個FileStream做其它事情??
End?Using
網(wǎng)頁題目:vb.net比對文件夾,vbnet vb區(qū)別
新聞來源:http://chinadenli.net/article27/dsechcj.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供手機網(wǎng)站建設(shè)、做網(wǎng)站、全網(wǎng)營銷推廣、動態(tài)網(wǎng)站、網(wǎng)站導(dǎo)航、品牌網(wǎng)站建設(shè)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)