vb點(diǎn)虐 如何判斷路徑是文件還是文件夾

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

創(chuàng)新互聯(lián)公司2013年開創(chuàng)至今，是專業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司，擁有項(xiàng)目成都做網(wǎng)站、成都網(wǎng)站制作網(wǎng)站策劃，項(xiàng)目實(shí)施與項(xiàng)目整合能力。我們以讓每一個(gè)夢(mèng)想脫穎而出為使命，1280元永善做網(wǎng)站,已為上家服務(wù),為永善各地企業(yè)和個(gè)人服務(wù),聯(lián)系電話:18980820575

'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

vbnet如何判斷目錄下增加了文件

首先我們得判斷文件/目錄是否存在然后獲取文件信息（創(chuàng)建時(shí)間）。有文件的獲取時(shí)間了，就可以知道這個(gè)文件的創(chuàng)建時(shí)間，就能判斷目錄的文件是什么時(shí)候增加的，那么離自己最近的時(shí)間創(chuàng)建的的文件就是目錄的增加文件了。

判斷文件/目錄是否存在

Try ? ? ? ? ? ?' 先判斷文件是否存在。 ? ? ? ? ? ?If Not File.Exists(TextBox4.Text) Then

File.CreateText(TextBox4.Text) '單純創(chuàng)建文件一般不常用，正常情況下是創(chuàng)建文件然后進(jìn)行讀寫操作

'System.IO.File.Create(TextBox4.Text) ? ? ? ? ? ?End If

Catch ex As Exception

MessageBox.Show(ex.Message)

Exit Sub

End Try

獲取文件信息（創(chuàng)建時(shí)間）?FileDateTime(fii(i).FullName)? ? ?File.GetCreationTime(path)

System.IO.File.Create(Path)'創(chuàng)建文件

System.IO.File.CreateText(Path)'創(chuàng)建文件

System.IO.File.Copy(Path,targetPath) ? ? ?'復(fù)制到新位置,不允許覆蓋現(xiàn)有文件 ? ? ? ?也可以'FileCopy(TextBox4.Text, "C:" "\" file_name(UBound(file_name))) System.IO.File.Move(SourceFileName, DestFileName)

System.IO.File.Delete(Path)

'追加 System.IO.File.AppendText'替換

System.IO.File.Replace

vb點(diǎn)虐 怎么判斷一個(gè)文件夾或是文本文件的存在?如果沒有則創(chuàng)建……求代碼!不要VB6.0的

判斷和創(chuàng)建可以放在一起。

創(chuàng)建空文件夾：

Directory.CreateDirectory(文件夾完整路徑)

'系統(tǒng)會(huì)自動(dòng)判斷文件夾是否存在，不存在就創(chuàng)建判斷并創(chuàng)建空文件：

Using fs As New FileStream("f.txt", FileMode.OpenOrCreate)

'你可以用這個(gè)FileStream做其它事情

End Using

vb點(diǎn)虐 ，一文件夾下存在若干子文件夾，如何判斷哪些子文件夾為空（子文

'通過過System.IO.DirectoryInfo對(duì)象可以查閱目錄信息，下面是遍歷一個(gè)文件夾下所有層次的子文件夾，如果只檢查下一層目錄就更簡(jiǎn)單了。

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點(diǎn)虐 沒幾條方法可用。