锐客网

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

vb.net文件路径6 vbnet ini文件

IT技术FilePathFile

在VB.NET中如何取得当前目录的路径?命名空间:System.Windows.Forms
Application.StartupPath 属性(返回String)
获取启动了应用程序的可执行文件的路径 ， 不包括可执行文件的名称 。
Application.ExecutablePath 属性(返回String)
获取启动了应用程序的可执行文件的路径，包括可执行文件的名称 。
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
如何在VB6中取得当前路径或系统路径app.path是VB6中的用法.
vb2010属于VB.Net，VB.Net中使用如下方法:
Application.StartupPath'获取当前程序路径,如果你的程序在C:\App\,结果为 C:\App
AppDomain.CurrentDomain.SetupInformation.ApplicationBase '获取当前程序路径,如果你的程序在C:\App\,结果为 C:\App\
'后者比前者的结果会多一个"\"
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
【vb.net文件路径6 vbnet ini文件】''获取路径路径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文件路径6的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbnet ini文件、vb.net文件路径6的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：如何找到域控制器？ 怎么查找域控服务器

    下一篇：泉州特产带货直播话术，土特产直播解说词