用GetShortPathName：时，vb显示子程序或函数未定义，为什么？是不是要在 工程-引用 里勾上什么？
你使用的这个
GetShortPathName 是一个API函数，你必须要先将它声明了 才可以使用它
说的通俗一点就是
系统里有一万个士兵，每个士兵都有自己的特长，
你现在要执行一项特殊任务，需要找一个“神枪手”，才可以完成这个任务
那么你得先跟大家说好 我要把这个“神枪手”借来用用先，
等完成了任务再还回兵营里去。
那么 你就得发表一份声明 说 我即将在我的程序里 使用到这个“神枪手”
你的这个GetShortPathName就是“神枪手”
你的声明应该这么写
在你的所有代码最前面 加上下面这句话，
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
别分成几行写，这是一行。
这样声明好了以后 你就可以在你的程序里使用这个“神枪手”了。
如果你对这个声明为什么要按这样的格式来书写存有疑问的话，
随便去找一本介绍关于API函数的书 就可以明白了。
GetShortPathName 是一个API函数，你必须要先将它声明了 才可以使用它
说的通俗一点就是
系统里有一万个士兵，每个士兵都有自己的特长，
你现在要执行一项特殊任务，需要找一个“神枪手”，才可以完成这个任务
那么你得先跟大家说好 我要把这个“神枪手”借来用用先，
等完成了任务再还回兵营里去。
那么 你就得发表一份声明 说 我即将在我的程序里 使用到这个“神枪手”
你的这个GetShortPathName就是“神枪手”
你的声明应该这么写
在你的所有代码最前面 加上下面这句话，
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
别分成几行写，这是一行。
这样声明好了以后 你就可以在你的程序里使用这个“神枪手”了。
如果你对这个声明为什么要按这样的格式来书写存有疑问的话，
随便去找一本介绍关于API函数的书 就可以明白了。
温馨提示：答案为网友推荐，仅供参考
第1个回答 2009-02-01
需要在窗体的通用声明中加入以下内容（以下三行其实是一行）就可以了。
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
