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组件来操作了。