脫離具體的環(huán)境談并沒有任何意義,所以如果當(dāng)前電腦上存在此文件就是文件,存在此文件夾則為文件夾,否則什么也不是。
肅北網(wǎng)站建設(shè)公司成都創(chuàng)新互聯(lián)公司,肅北網(wǎng)站設(shè)計(jì)制作,有大型網(wǎng)站制作公司豐富經(jīng)驗(yàn)。已為肅北超過千家提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\成都外貿(mào)網(wǎng)站制作要多少錢,請找那個(gè)售后服務(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對象可以查閱目錄信息,下面是遍歷一個(gè)文件夾下所有層次的子文件夾,如果只檢查下一層目錄就更簡單了。
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ù)用遞歸法實(shí)現(xiàn)
Next
Return?items.ToArray()
End?Function
'還是學(xué)c#語言吧,我發(fā)覺同樣一個(gè)數(shù)組,c#功能多的多,vb.net沒幾條方法可用。
判斷和創(chuàng)建可以放在一起。
創(chuàng)建空文件夾:
Directory.CreateDirectory(文件夾完整路徑)
'系統(tǒng)會自動(dòng)判斷文件夾是否存在,不存在就創(chuàng)建
判斷并創(chuàng)建空文件:
Using?fs?As?New?FileStream("f.txt",?FileMode.OpenOrCreate)
'你可以用這個(gè)FileStream做其它事情??
End?Using