锐客网

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

vb.net截取文件路径 vba截取路径

IT技术文件

求VB.NET获取文件路径的方法Dim my_path() As String = System.IO.Directory.GetFiles("d:\", "文件名", IO.SearchOption.AllDirectories)
因为有可能在多个地方vb.net截取文件路径，所以进行了全盘搜索vb.net截取文件路径，歌曲vb.net截取文件路径的所有地址路径在数组my_path中
vb.net文件关联后获取文件路径我没有设置关联vb.net截取文件路径，只是把文件拖到程序文件上打开vb.net截取文件路径 ， 应该是一样vb.net截取文件路径的 。
主要是看程序启动时的命令行参数My.Application.CommandLineArgs，里面包括要打开的文件路径 。
在Sub Main 或者 启动窗口的Load事件里添加代码
If My.Application.CommandLineArgs.Count0 AndAlso My.Computer.FileSystem.FileExists(My.Application.CommandLineArgs(0)) Then‘参数不为空且文件存在
Dim s As New IO.StreamReader(My.Application.CommandLineArgs(0))
MsgBox(s.ReadToEnd)
End If
你还可以处理更多的命令行参数 。
关于命令行参数
如何实现VB.NET获取程序运行路径System.Environment.CurrentDirectory
这才是vb.net的获取程序运行路径的方法
vb.net d盘有个文件夹file里面有excel类型文件怎么用getfile取到文件的路径你好，请使用System.IO.Directory.EnumerateFiles()方法
Dim XLS文件列表 As IEnumerable(Of string)
Dim XLSX文件列表 As IEnumerable(Of string)
Dim path As String = "D:\File\"
XLS文件列表 = Directory.EnumerateFiles(path, "*.xls", SearchOption.TopDirectoryOnly)
XLSX文件列表 = Directory.EnumerateFiles(path, "*.xlsx", SearchOption.TopDirectoryOnly)
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
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
'获取文件名但不包括扩展名
aaa
Public
Function
GetFileNameNoExt(FilePathFileName
As
String)
As
String
'获取文件名但不包括扩展名
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
Then
GetFileNameNoExt
Mid(FilePathFileName,
J
1,
i
-
J)
Else
GetFileNameNoExt
Mid(FilePathFileName,
J
1,
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
i
Len(FilePathFileName)
J
InStrRev(FilePathFileName,
".")
If
J
Then
GetFileExtName
".txt"
Else
GetFileExtName
Mid(FilePathFileName,
J,
i)
End
If
End
Function
vb.net怎么实现点击下载，获取文件路径并下载下载，直接通过url读取文件，然后Response.OutputStream.Write()数据
下面提供个下载的静态方法 ， 是C#的 ， 供参考：
/// summary
/// 下载文件
/// /summary
/// param name="fileName"下载的文件名称（包括扩展名）/param
/// param name="filePath"下载文件的绝对路径/param
public static void DownFile(string fileName, string filePath)
{
//打开要下载的文件，并把该文件存放在FileStream中
System.IO.FileStream Reader = System.IO.File.OpenRead(filePath);
//文件传送的剩余字节数：初始值为文件的总大小
long Length = Reader.Length;
HttpContext.Current.Response.Buffer = false;
HttpContext.Current.Response.AddHeader("Connection", "Keep-Alive");
HttpContext.Current.Response.ContentType = "application/octet-stream";
HttpContext.Current.Response.Charset = "utf-8";
HttpContext.Current.Response.AddHeader("Content-Disposition", "attachment; filename="System.Web.HttpUtility.UrlEncode(fileName));
HttpContext.Current.Response.AddHeader("Content-Length", Length.ToString());
byte[] Buffer = new Byte[10000];//存放欲发送数据的缓冲区
int ByteToRead; //每次实际读取的字节数
while (Length0)
{
//剩余字节数不为零 ， 继续传送
if (HttpContext.Current.Response.IsClientConnected)
{
//客户端浏览器还打开着，继续传送
ByteToRead = Reader.Read(Buffer, 0, 10000);//往缓冲区读入数据
HttpContext.Current.Response.OutputStream.Write(Buffer, 0, ByteToRead);
//把缓冲区的数据写入客户端浏览器
HttpContext.Current.Response.Flush(); //立即写入客户端
Length -= ByteToRead;//剩余字节数减少}
else
{
//客户端浏览器已经断开，阻止继续循环
Length = -1;
}
}//关闭该文件
Reader.Close();
}
QQ：121一九五五121
【vb.net截取文件路径 vba截取路径】vb.net截取文件路径的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vba截取路径、vb.net截取文件路径的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：下载视频DJ，下载视频dj舞曲

    下一篇：虎牙直播下载最新版安装，请下载虎牙直播