dir()在VB中是表示什么

樓上說(shuō)的都對(duì)，但是只說(shuō)了語(yǔ)法，沒(méi)說(shuō)用途，需要強(qiáng)調(diào)的是，Dir函數(shù)在VB中最主要的用途是確定文件是否存在，不存在就返回空字符串，例如

成都創(chuàng)新互聯(lián)主要從事成都網(wǎng)站建設(shè)、成都網(wǎng)站設(shè)計(jì)、網(wǎng)頁(yè)設(shè)計(jì)、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)柳江,十多年網(wǎng)站建設(shè)經(jīng)驗(yàn),價(jià)格優(yōu)惠、服務(wù)專業(yè),歡迎來(lái)電咨詢建站服務(wù):18982081108

if dir("c:\1.txt")="" then '如果c:\1.txt不存在，那么...

如何用vb判斷文件夾是否存在

API函數(shù) PathFileExists

聲明

Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long

PathFileExists("一個(gè)文件或文件夾") 如果存在 返回1 不存在返回0

If PathFileExists("C:\123") then ...

Dir不準(zhǔn)確

如果有下列目錄結(jié)構(gòu)

D盤(pán)中有文件夾 test 文件夾中有testFile.txt文件

還有空文件夾 testEmpty

則

Dir("d:\test\testFIie.txt") 返回 testFile.txt

Dir("d:\test\testFIie11111111.txt") 返回 ""

Dir("d:\test\") 返回 testFile.txt (返回此文件夾第一個(gè)文件)

Dir("d:\testEmpty") 返回空

dir("一個(gè)不存在的文件夾")返回空

也就是說(shuō)如果一個(gè)文件夾下沒(méi)有文件（不管有沒(méi)有子文件夾）則 dir("一個(gè)文件夾")就返回空

所以不能通過(guò) dir("一個(gè)文件夾")來(lái)判斷一個(gè)文件夾是否存在。

只能調(diào)用api函數(shù)

Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long

PathFileExists("一個(gè)文件或文件夾") 如果存在 返回1 不存在返回0

vb.net從文件路徑中獲取文件名

獲取方法，參考實(shí)例如下：

'獲取路徑名各部分: 如： c:\dir1001\aaa.txt

'獲取路徑路徑 c:\dir1001\

Public Function GetFileName(FilePathFileName As String) As String '獲取文件名 aaa.txt

On Error Resume Next

Dim i As Integer, J As Integer

i Len(FilePathFileName)

J InStrRev(FilePathFileName, "\")

GetFileName Mid(FilePathFileName, J + 1, i)

End Function

''獲取路徑路徑 c:\dir1001\

Public Function GetFilePath(FilePathFileName As String) As String '獲取路徑路徑 c:\dir1001\

On Error Resume Next

Dim J As Integer

J InStrRev(FilePathFileName, "\")

GetFilePath Mid(FilePathFileName, 1, J)

End Function

'獲取文件名但不包括擴(kuò)展名 aaa

Public Function GetFileNameNoExt(FilePathFileName As String) As String '獲取文件名但不包括擴(kuò)展名 aaa

On Error Resume Next

Dim i As Integer, J As Integer, k As Integer

i Len(FilePathFileName)

J InStrRev(FilePathFileName, "\")

k InStrRev(FilePathFileName, ".")

If k 0 Then

GetFileNameNoExt Mid(FilePathFileName, J + 1, i - J)

Else

GetFileNameNoExt Mid(FilePathFileName, J + 1, k - J - 1)

End If

End Function

'＝＝＝＝＝ '獲取擴(kuò)展名 .txt

Public Function GetFileExtName(FilePathFileName As String) As String '獲取擴(kuò)展名 .txt

On Error Resume Next

Dim i As Integer, J As Integer

i Len(FilePathFileName)

J InStrRev(FilePathFileName, ".")

If J 0 Then

GetFileExtName ".txt"

Else

GetFileExtName Mid(FilePathFileName, J, i)

End If

End Function

如何用vb.net實(shí)現(xiàn)：判斷指定路徑下是否存在指定文件

先imports

system.runtime.interopservices

然后class

xxxx

public

shared

function

zlibversion()

as

string

end

function...'在里面調(diào)用zlibversion()即可調(diào)用zlib1.dll的zlibversion方法，其他dll你根據(jù)接口靈活定義好了end

class