VB取得DOS方式的路径地址

最新推荐文章于 2025-05-28 22:18:33 发布

现在还是人类

最新推荐文章于 2025-05-28 22:18:33 发布

阅读量2.5k

点赞数

文章标签： dos vb string function basic c

本文链接：https://blog.youkuaiyun.com/supermanking/article/details/2956211

版权

本文提供了一段使用Visual Basic编写的代码示例，该代码通过调用Windows API函数GetShortPathName来获取文件系统的短路径名。短路径名在处理长路径或兼容旧版应用程序时非常有用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Visual Basic Code

Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" ( ByVal lpszLongPath As String, _
                                                                                                      ByVal lpszShortPath As String, ByVal cchBuffer As Long ) As Long
Private Sub Form_Load ( )
      MsgBox GetDOSPath ( "C:/Documents And Settings/Administrator/桌面" )
End Sub
Private Function GetDOSPath ( WinPath As String ) As String
      Dim DosPath As String
      Dim DosPathSize As Long
      DosPathSize = GetShortPathName ( WinPath, vbNullString, 0 )
      DosPath = String ( DosPathSize, " " )
      GetShortPathName WinPath, DosPath, DosPathSize
      GetDOSPath = DosPath
End Function