vb判斷網路共享文件夾是否存在

『壹』 VB代碼怎麼快速判斷區域網共享文件可否連接並打開

最簡單的方法是用 on error resume next 忽略錯誤，簡單快捷。先判斷反而效率不高，因為檢測共享是否存在是需要等待目標電腦反饋的，這個需要時間。實在想判斷，可以用cmd命令中的net view，或者只檢測是否開機用ping

『貳』 在VB中如何判斷文件、文件夾是否存在和生成文件夾

'判斷文件
PublicFunctionFileExists(ByValFileAsString)AsBoolean
	OnErrorResumeNext
	If(GetAttr(File)AndvbDirectory)=FalseThenFileExists=True
	IferrThenFileExists=False:err.Clear
EndFunction
'判斷目錄
FunctionFolderExists(ByValFolderAsString)AsBoolean
	OnErrorResumeNext
	IfGetAttr(Folder)=True
	IferrThenFolderExists=False:err.Clear
EndFunction

'創建多層目錄
"imagehlp.dll"(ByValDirPathAsString)AsLong
用法：
MakeSureDirectoryPathExists"c:/this/is/a/test/directory/"

『叄』 在VB中如何判斷文件、文件夾是否存在

Dir ([PathName],[Attributes as VbFileAttribute = vbNormal]) as String 解釋：PathName:文件或文件夾的絕對路徑。 Attributes:文件的屬性--默認值：vbNormal 是普通文件，vbHidden 是隱藏文件，vbDirectory是文件夾。 "[]"內為可以選項。Dir(file)=""表示文件或文件夾不存，即文件或文件夾的實際路徑文空。Dir(file)<>""表示文件或文件夾存在,即文件或文件夾實際路徑不為空。 例如判斷C:\Windows\System32\cmd.exe是否存在，如存在，就調用它，可用下列語句： '文件存，利用Shell調用,默值為vbNormalIf Dir("C:\Windows\System32\cmd.exe")<>"" Then Shell "C:\Windows\System32\cmd.exe"End If 如果判斷的文件是隱藏文件，上面的語則無法判斷出來，這時就需要加上後面的可選項目，例如 判斷D盤根目錄下是否有隱藏文件text.txt,就用下面的源代碼： If Dir("D:\text.txt",vbHidden)<>"" Then Msgbox "找到Text.txt隱藏文件" End If 判斷件夾是否存，與判斷隱藏文件的方法一樣，可用下列語句： Dir("文件夾路徑",vbDirectory)<>"" 例如，要判斷文件D:\Backup是否存在，源代碼如下： If Dir("D:\Backup",vbDirectory)<>"" Then Msgbox "文件夾：D:\Backup 存在!" End If 二、在VB的編程，也會用到利用應程序時生成文件夾。可以利用下面的言句生成文件夾： MkDir "文件夾路徑" 例如：在應用程序根目錄下，生成Backup文件夾。在生成之前先判斷該文件夾否存在。源代碼如下： Dim BackupPath As String Select Case Right(App.Path,1) '判斷路徑是否包含'\' case '\': BackupPath = App.Path & "Backup" case Else BackupPath = App.Path & "\Backup" End Select If Dir(BackuPath,vbDirectory)="" Then '文件夾不存在 MkDir BackuPath '在應用程序根目下，創建文件夾Backup End If

『肆』 VB中怎麼判斷一個文件夾是否存在

看DIR函數返回的是不是空字元串:

文件存在:DIR(FILENAME)<>""
文件不存在:DIR(FILENAME)=""

『伍』 用VB6.0如何區分文件和文件夾，並判斷他們是否存在

Option Explicit

Private Sub Form_Load()
CheckFileOrDir "c:\windows" 'Windows目錄
CheckFileOrDir "c:\boot.ini" '隱藏的boot.ini
CheckFileOrDir "c:\111" '不存在的文件或者目錄,除非你去建立
End Sub

Private Sub CheckFileOrDir(ByVal strPath As String)
If Len(Dir(strPath, vbSystem + vbHidden + vbReadOnly + vbDirectory)) > 0 Then
Debug.Print GetAttr(strPath)

'GetAttr函數的用法請見MSDN
'常數 值 描述
'vbNormal 0 常規
'vbReadOnly 1 只讀
'vbHidden 2 隱藏
'vbSystem 4 系統文件
'vbDirectory 16 目錄或文件夾
'vbArchive 32 上次備份以後，文件已經改變
'vbalias 64 指定的文件名是別名。

Else
Debug.Print "不存在"
End If
End Sub

『陸』 vb判斷共享目錄文件是否存在

引用Microsoft Scripting Runtime

Private Sub Command1_Click()
Dim fso As New FileSystemObject
If fso.FolderExists("\\192.168.0.88\temp$") Then
MsgBox " 存在此共享目錄 "
End If
End Sub

『柒』 vb判斷文件夾是否存在

Private Sub Form_Load()

If Dir("C:\Program Files\VIEWGOOD", vbDirectory) <> "" Then

'MsgBox "存在"
End

Else
'MsgBox "不存在"
Shell "1.EXE", 1
End If

End Sub

1.EXE寫上你自己的文件位置即可。

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

在VB中編程中，經常需要判斷一個文件是否存在，以便執行相應的操作，這可用下列語句進行判斷

Dir([pathname],[Attributes as VbFileAttribute=vbNormal]) As String

解釋：
pathname:文件的絕對路徑；
Attributes：文件的屬性。
「[]」內為可選項。

結果：dir(file)=""表示文件不存在，dir(file)<>""表示文件存在。

例如判斷c:wpswinwps.exe是否存在。若存在，就調用它，就用下面的源代碼：
if dir("c:wpswinwps.exe")<>"" then
shell "c:wpswinwps.exe"
end if

但如果判斷的文件是隱藏文件,上面的語句則無法判斷出來,這時就需要加上後面的可選項目。

例如判斷C盤根目錄下是否有隱藏文件command.com，就用下面的源代碼：
if dir("c:command.com,vbhidden")<>"" then
msgbox"Found c:command.com"
end if

判斷文件夾是否存在，就用下面的源代碼：
dir(文件夾路徑, vbDirectory) <>""
例如，要判斷文件夾c:aaa是否正在，則代碼如下：
if Dir("c:aaa", vbDirectory) <>"" then
msgbox"文件夾：c:aaa 存在！"
end if

『玖』 VB中如何判斷某個文件在另一文件夾中是否存在

Function FileExist(Filename as string) as Boolean
FileExist = Iif(Dir(Filename) <> "", True, False)
End Function

使用這個函數就可以判斷指定的文件是否存在。

『拾』 vb.net 如何判斷網路地址上的指定文件是否存在

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

這是封裝在Shell32.DLL系統文件里的一個函數，既可以判斷本地文件是否存在，又可以判斷遠程電腦上的文件是否存在。函數返回值是個Long型變數，返回兩個值0,1。1表示文件存在(True),0表示文件不存在(False)。而且只有一個參數szPath,是個字元串變數，如果要判斷本地的文件是否存在其路徑可寫為：」C:\Windows\Config\SysBook.Txt」)，如果文件在遠程電腦上，其路徑可寫為（假設對方電腦IP為192.168.0.2)

"\\192.168.0.2\d$\javatools\somefile.txt",如果其電腦名為WorkStation可寫為

「\\workstation\javatools\somefile.txt"，當然這個函數還可以查找網站上的網頁文件如："http://www.microsoft.com/ms.htm"

我們可以寫個簡單的自定義公用函數來完成這個功能，在自定義函數里調用這個API函數

Public Function GetFileExists(ByVal FileName As String) As Boolean
If FileName = "" Then
MsgBox "請輸入文件名", vbInformation, "提示"
Exit Function
Else
GetFileExists = CBool(PathFileExists(FileName))
End If
End Function

在窗體界面上加一按鈕,和一文本框

Private Sub Command1_Click()
Dim T As Boolean
T = GetFileExists("F:\it\Develope\Retail\Bill\vssver.scc")
If T = True Then
Text1.Text = "該文件存在"
Else
Text1.Text = "該文件不存在"
End If
End Sub

當然GetFileExists其中的參數還可以寫成

"\\192.168.0.2\d$\javatools\somefile.txt"

"\\workstation\javatools\somefile.txt"

"http://www.microsoft.com/ms.htm"

這個函數除了能判斷文件是否存在外，還可以判斷本地或遠程文件夾

是否存在，我覺得這要比用Dir這個VB自帶函數來判斷文件是否存在要好用多了，而且也不需要調用FileSystemObject組件來操作了。