vb.net获取桌面路径 C#获取桌面路径

VB.NET获取目录文件夹名称

先用System.IO.Directory.GetDirectories函数获取子目录的名称（包括其路径），再用System.IO.Path.GetFileName获取子目录的名称。下面是代码：

在青田等地区，都构建了全面的区域性战略布局，加强发展的系统性、市场前瞻性、产品创新能力，以专注、极致的服务理念，为客户提供成都做网站、成都网站制作、成都外贸网站建设 网站设计制作按需设计,公司网站建设,企业网站建设,品牌网站设计,成都营销网站建设,成都外贸网站制作,青田网站建设费用合理。

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

For Each s In System.IO.Directory.GetDirectories("C:\Windows")

Console.WriteLine(System.IO.Path.GetFileName(s))

Next

End Sub

下面是部分输出：

Application Data

AppPatch

assembly

BOCNET

Boot

Branding

ConfigSetRoot

Cursors

Debug

DigitalLocker

Downloaded Installations

Downloaded Program Files

ehome

en-US

Fonts

Globalization

Help

...

可能有更简洁的方法，你可以到MSDN看看

System.IO.Directory.GetDirectories：

System.IO.Path.GetFileName：

通用 I/O 任务：

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 0 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 0 Then

GetFileExtName ".txt"

Else

GetFileExtName Mid(FilePathFileName, J, i)

End If

End Function

怎样把一个绝对路径改成相对路径（vb.net） 下面是代码 求高手 在线恭候 如果解决了我会追加20

你把图片要放在和程序一个文件夹下，然后就可以写成

PictureBox1.Image = System.Drawing.Image.FromFile("00.gif")

如果图片在程序上层目录下，就可以写成

PictureBox1.Image = System.Drawing.Image.FromFile("..\00.gif")

如何获取桌面的路径

打开Windows资源管理器，输入路径"C:\Users\Administrator\Desktop"即可进入桌面。其中，Administrator为自定义管理员账户名称。

VB.NET如何获取其他应用程序的安装路径?以及如何判断一个应用程序是否已经打开？

你这个问题分着问兴许能快点得到答案。

我只知道一点，软件已打开，可以根据进程信息判断

Private chm_process As Process

If IsNothing(chm_process) OrElse chm_process.HasExited Then

chm_process = New Process

chm_process.StartInfo.FileName = Application.StartupPath + "\软件使用说明书.CHM"

chm_process.Start()

Else

WinAPI.ShowWindowEx(chm_process.MainWindowHandle, WinAPI.nCmdShow.SW_RESTORE)

End If

让cad加载文件得找API，不知道有没有