锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net网络路径 vbnet doevents

StringIT技术

.Net 如何获取指定路径下的文件名称（比如Excel文件）vb.net
'控制台命令项目-取得或设置当前工作目录的完整限定路径
1. Environment.CurrentDirectory'D:\project\test\bin\Debug
Environment.CurrentDirectory.Replace("\bin\Debug", "") 'D:\project\test\bin\Debug
2. System.IO.Directory.GetCurrentDirectory
System.IO.Directory.GetCurrentDirectory.Replace("\bin\Debug", "")
'网络应用程序项目-取得或设置当前工作目录的完整限定路径
'获取承载在当前应用程序域中的应用程序的应用程序目录的物理驱动器路径 。用于App_Data中获取
HttpRuntime.AppDomainAppPath.ToString()
'返回与Web服务器上的指定的虚拟路径相对的物理文件路径
defaultPage.Server.MapPath("")
defaultPage.Server.MapPath("~\")
'获取服务器上ASP.NET应用程序的虚拟应用程序根目录
defaultPage.Request.ApplicationPath.ToString()
以上获得的结果都是String类型的，很简单吧，接下来怎么做你应该懂得 。
vb.net image.fromfile访问远程路径怎么写?。?，急急急先将该网络路径挂载至一个盘（例子：Z）
然后image.fromfile("z:\1.jpg")
用VB做传输文件的工具通讯协议呢？
不同通信协议代码不同
（写这种代码很费神vb.net网络路径，耗时多 ， ~~~~~~~~~~？）
1实现共享不需要非得映射驱动器.这点楼主大可放心.(试验过)当时vb.net网络路径我vb.net网络路径的概念vb.net网络路径了解vb.net网络路径的不是很清楚,走了很多弯路.回头看看其实不难
2一开始我是在2000=2000之间做的测试,而且是在没有域的情况下.所以只要配置好权限就可以了.建议楼主首先在这样的环境下测试,很容易成功.否则对代码测试不利(起码知道问题出现在哪里)
398=2000因为两者的安全性不一样,访问方法也不一样.当然提供的API也不一样.所以问题比较多.大多数的错误其实是win2000的配置出现问题,导致win98无权访问win2000.建议您先手动连接试试,先排除配置问题再测试代码.
498=98,没什么好说的,我也没有尝试过.因为我用不到所以没有试.
IfLeft$(P_DbCode,2)="\\"Then
TmpPath=FilePath(P_DbCode)'取路径名
DisNet"M:"'先断开M
DoEvents
'映射网络路径为本地M盘.
MapDriv"M:",Left(TmpPath,Len(TmpPath)-1),P_UserLog.NetPwd,P_UserLog.NetUser
CallWait(5)'等0.5秒
DisNet"M:"'断开M盘.
EndIf
'***************************************
OptionExplicit
PrivateTypeNETRESOURCE
dwScopeAsLong
dwTypeAsLong
dwDisplayTypeAsLong
dwUsageAsLong
lpLocalNameAsString
lpRemoteNameAsString
lpCommentAsString
lpProviderAsString
EndType
ConstNO_ERROR=0
ConstCONNECT_UPDATE_PROFILE=H1
ConstRESOURCETYPE_DISK=H1
ConstRESOURCETYPE_PRINT=H2
ConstRESOURCETYPE_ANY=H0
ConstRESOURCE_CONNECTED=H1
ConstRESOURCE_REMEMBERED=H3
ConstRESOURCE_GLOBALNET=H2
ConstRESOURCEDISPLAYTYPE_DOMAIN=H1
ConstRESOURCEDISPLAYTYPE_GENERIC=H0
ConstRESOURCEDISPLAYTYPE_SERVER=H2
ConstRESOURCEDISPLAYTYPE_SHARE=H3
ConstRESOURCEUSAGE_CONNECTABLE=H1
ConstRESOURCEUSAGE_CONTAINER=H2
PrivateDeclareFunctionWNetAddConnection2Lib"mpr.dll"Alias"WNetAddConnection2A"_
(lpNetResourceAsNETRESOURCE,_
ByVallpPasswordAsString,_
ByVallpUserNameAsString,_
ByValdwFlagsAsLong)AsLong
PrivateDeclareFunctionWNetCancelConnection2Lib"mpr.dll"Alias"WNetCancelConnection2A"_
(ByVallpNameAsString,_
ByValdwFlagsAsLong,_
ByValfForceAsLong)AsLong
PublicDeclareFunctionGetComputerNameLib"kernel32"Alias"GetComputerNameA"_
(ByVallpBufferAsString,nSizeAsLong)AsLong
PrivateDeclareFunctionGetUserNameLib"advapi32.dll"Alias"GetUserNameA"_
(ByVallpBufferAsString,nSizeAsLong)AsLong
'返回网络资源的UNC路径
PublicDeclareFunctionWNetGetConnectionLib"mpr.dll"Alias"WNetGetConnectionA"_
(ByVallpszLocalNameAsString,_
ByVallpszRemoteNameAsString,_
cbRemoteNameAsLong)AsLong
DeclareFunctionWNetCancelConnectionLib"mpr.dll"Alias"WNetCancelConnectionA"(ByVallpszNameAsString,ByValbForceAsLong)AsLong
'
'记录操作员登录信息
PublicTypeUserLog
IDAsString'操作员ID
NameAsString'操作员名称
PassWordAsString'操作员密码
LogDateAsDate'登录日期
LogTimeAsDate'登录时间
NetUserAsString
NetPwdAsString
EndType
PublicP_DbCtrlAsNewSmDbCtrl
PublicP_CnnAsNewADODB.Connection
PublicP_WorkPathAsString
PublicP_DbCodeAsString
PublicP_UserLogAsUserLog
'
'取路径名
'函数:FilePath
'参数:Fname文件绝对路径.
'返回值:路径名.
'如:"C:\PROMAS\AA.EXE",则返回"C:\PROMAS\"
PublicFunctionFilePath(FnameAsString)AsString
DimAAsInteger
DimBAsInteger
DimJlStrAsString
FilePath=""
B=0
ForA=Len(Fname)To1Step-1
IfMid$(Fname,A,1)="\"Then
B=A:GoTo100
EndIf
NextA
100:
JlStr=Left$(Fname,B)
FilePath=JlStr
EndFunction
'建立和断开网络映射,取工作站名称及用户名称
'------------------------------------------
'1.MapDriv
'**建立网络映射**_
NETFLAG=MapDriv(DrivName,NetPath,Password,UserName)
'参数说明:_
DrivName映射成的本地驱动器名_
NetPath网络路径_
Password密码(如果没有则用"")_
UserName用户名(如果没有则用"")_
'返回值=TRUE连接成功,=FALSe连接失败
'------------------------------------------
'2.DisNet
'**断开网络驱动器**_
FLAG=DisNet(NetDriv)_
NetDriv断开的网络驱动器名_
'返回值=True成功,=False失败
'-----------------------------------------
'3.ComputerName
'**返回本工作站名称**_
ComName=ComputerName()
'返回值:本机名称
'-----------------------------------------
'4.UserName
'**返回当前用户名称**_
UserName()AsString
'
'返回值:网络登录者名称
'----------------------------------------
'**建立网络映射**
'NETFLAG=MapDriv(DrivName,NetPath,Password,UserName)
'参数说明:
'DrivName映射成的本地驱动器名
'NetPath网络路径
'Password密码(如果没有则用"")
'UserName用户名(如果没有则用"")
'返回值=TRUE成功连接,=FALSe连接失败
'============================================
PublicFunctionMapDriv(DrivNameAsString,NetPathAsString,PassWordAsString,UserNameAsString)AsBoolean
'建立网络连接
DimNetRAsNETRESOURCE
DimErrInfoAsLong
WithNetR
.dwScope=RESOURCE_GLOBALNET
.dwType=RESOURCETYPE_DISK
.dwDisplayType=RESOURCEDISPLAYTYPE_SHARE
.dwUsage=RESOURCEUSAGE_CONNECTABLE
.lpLocalName=UCase(DrivName)'映射成本机盘符
.lpRemoteName=UCase(NetPath)'映射的网络路径
EndWith
'建立连接,返回ERR代码
ErrInfo=WNetAddConnection2(NetR,PassWord,UserName,0)
'检查代码
MapDriv=(ErrInfo=NO_ERROR)
EndFunction
'
'**断开网络驱动器**
'FLAG=DisNet(NetDriv)
'NetDriv断开的网络驱动器名
'返回值=True成功,=False失败
'=====================================
PublicFunctionDisNet(NetDrivAsString)AsBoolean
DimErrInfoAsLong
DimErrReAsLong
DimstrLocalNameAsString
strLocalName=UCase(NetDriv)'断开的映射盘
'断开,返回ERR代码
ErrRe=WNetCancelConnection(strLocalName,True)
ErrInfo=WNetCancelConnection2(strLocalName,CONNECT_UPDATE_PROFILE,True)
'检查代码
IfErrInfo=NO_ERRORThen
DisNet=True
Else
DisNet=False
EndIf
EndFunction
'
'------------------------------------
'**返回本工作站名称**
PublicPropertyGetComputerName()AsString
DimnSizeAsLong
DimlpBufferAsString
nSize=255'保存工作站名称的缓冲区
lpBuffer=Space$(nSize)
IfGetComputerName(lpBuffer,nSize)Then
ComputerName=Left$(lpBuffer,nSize)
Else
ComputerName=""
EndIf
EndProperty
'
'-----------------------------------
'**返回登录用户名称**
PublicPropertyGetUserName()AsString
DimlpBufferAsString
DimnSizeAsLong
nSize=255'保存用户名的缓冲区
lpBuffer=Space$(nSize)
IfGetUserName(lpBuffer,nSize)Then
UserName=Left$(lpBuffer,nSize-1)
Else
UserName=""
EndIf
EndProperty
'
'-------------------------------------------
'**返回网络资源的UNC路径**
'LocaName要查询的本地资源名称
PublicFunctionGetNetUNC(LocaNameAsString)AsString
DimRcAsLong
DimlpBuffAsString
DimcbBuffAsLong
'设置缓冲区
cbBuff=255
lpBuff=String$(cbBuff,Chr$(0))
'调用API
IfWNetGetConnection(LocaName,lpBuff,cbBuff)=NO_ERRORThen
GetNetUNC=Left$(lpBuff,cbBuff)
Else
GetNetUNC=""
EndIf
EndFunction
'调用说明:
'WAITN
'等待.N*0.1
PublicSubWait(NAsInteger)
DimltimeAsDate
ltime=Timer()
WhileTimer()-ltime=N*0.05
DoEvents
Wend
vb.net 中 如何实现 播放mp3文件在.NET里vb.net网络路径，没有托管的音乐播放器vb.net网络路径，用API只能播放WAV格式vb.net网络路径 ， 对于MP3等形式的音频文件vb.net网络路径，就要依赖于其他控件vb.net网络路径了，常用的就是
MediaPlayer 。使用方法：
在工具箱上点右键，选择“选择项目(Choose
Items)”，切到COM选项卡，找到
Windows
Media
Player，
勾选，确定
在t工具箱上 ， 把刚才加入的MediaPlayer控件，拖放到窗体上
代码：
WindowsMediaPlayer1.URL
=
"mp3文件路径，支持网络路径"
WindowsMediaPlayer1.Ctlcontrols.play
基本就OK了，至于其他的操作诸如下一曲上一曲暂停停止，直接看
WindowsMediaPlayer1.Ctlcontrols.
里面的方法吧 。
vb.net从文件路径中获取文件名获取方法 ， 参考实例如下：
'获取路径名各部分:如： 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
iLen(FilePathFileName)
JInStrRev(FilePathFileName, "\")
GetFileNameMid(FilePathFileName, J1, i)
End Function
''获取路径路径c:\dir1001\
Public Function GetFilePath(FilePathFileName As String) As String '获取路径路径c:\dir1001\
On Error Resume Next
Dim J As Integer
JInStrRev(FilePathFileName, "\")
GetFilePathMid(FilePathFileName, 1, J)
End Function
'获取文件名但不包括扩展名aaa
Public Function GetFileNameNoExt(FilePathFileName As String) As String'获取文件名但不包括扩展名aaa
On Error Resume Next
Dim i As Integer, J As Integer, k As Integer
iLen(FilePathFileName)
JInStrRev(FilePathFileName, "\")
kInStrRev(FilePathFileName, ".")
If k0 Then
GetFileNameNoExtMid(FilePathFileName, J1, i - J)
Else
GetFileNameNoExtMid(FilePathFileName, J1, k - J - 1)
End If
End Function
'＝＝＝＝＝ '获取扩展名.txt
Public Function GetFileExtName(FilePathFileName As String) As String'获取扩展名.txt
On Error Resume Next
Dim i As Integer, J As Integer
iLen(FilePathFileName)
JInStrRev(FilePathFileName, ".")
If J0 Then
GetFileExtName".txt"
Else
GetFileExtNameMid(FilePathFileName, J, i)
End If
End Function
【vb.net网络路径 vbnet doevents】vb.net网络路径的介绍就聊到这里吧，感谢你花时间阅读本站内容 ， 更多关于vbnet doevents、vb.net网络路径的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：如何配置IIS服务器？ iis服务器怎么设置

    下一篇：为什么英魂服务器总是匹配失败？ 英魂服务器怎么匹配就断了