vb.net 如何将长文件路径转换成短文件路径？

Public Declare Function GetShortPathName Lib "kernel32" _
Alias "GetShortPathNameA" (ByVal lpszLongPath As String, _
ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Public Function ShortPath(ByVal path As String) As String '将长路径转换成短路径
Dim tmp As String
Dim l As Long
tmp = StrDup(256, 0)'在vb6中为 tmp = StrDup(256, 0)
l = GetShortPathName(path, tmp, Len(tmp))
ShortPath = Microsoft.VisualBasic.Replace(Left(tmp, l), Chr(0), "")
End Function
上述方法在vb6中能够轻易实现，但在vb.net中，得到的是空串呢。如何实现此目的呢？

把这句：
ShortPath = Microsoft.VisualBasic.Replace(Left(tmp, l), Chr(0), "")
改写成：
ShortPath = Microsoft.VisualBasic.Replace(Microsoft.VisualBasic.Left(tmp, l), Chr(0), "")
在VB.Net中，Mid函数依旧可用，Left函数和Right函数前面都需加“Microsoft.VisualBasic.”。

病情分析： 你好，你说的孩子上述症状考虑孩子有可能还是口腔疱疹的原因导致的，这种疾病属于病毒感染导致的。 指导意见： 建议你最好是在给孩子用抗病毒的药物和头孢类的抗生素输液治疗效果是比较好的，治疗期间多注意给孩子喝一些水和多休息几天，这样疾病就会好转了，祝早日康复。 病情分析： 您好，宝宝舌头上有白泡，而且发热考虑应该是病毒或者细菌感染引起的口腔疱疹。 指导意见： 如果宝宝精神状态好，可以口服抗病毒和消炎药物抗感染治疗，多喝水，用益口或者康复新液涂在口腔疱疹处促进愈合，减轻疼痛，多喝水，体温超过38.5度时口服退热药物退热。如果宝宝精神不好，或者高热不退，最好去医院化验血常规。 病情分析： 小孩出现了舌头有起白泡，有发热的情况，可能患急性上呼吸道感染，主要是疱疹病毒感染引起的，与受凉，吃了上火食品有关。 指导意见： 建议最好做个血法规检查，明确诊断，多喝水，避免受凉，多吃蔬菜水果汁，忌吃上火食品，可以口服利巴韦林颗粒，双黄连口服液，美林，优卡丹治疗。 病情分析： 宝宝出现舌头疱疹发热考虑疱疹性口腔炎的 指导意见： 宝宝的症状可以服用利巴韦林颗粒和蒲地蓝口服液治疗，注意多喝水，禁忌辛辣食物

病情分析： 你好，你说的孩子上述症状考虑孩子有可能还是口腔疱疹的原因导致的，这种疾病属于病毒感染导致的。 指导意见： 建议你最好是在给孩子用抗病毒的药物和头孢类的抗生素输液治疗效果是比较好的，治疗期间多注意给孩子喝一些水和多休息几天，这样疾病就会好转了，祝早日康复。 病情分析： 您好，宝宝舌头上有白泡，而且发热考虑应该是病毒或者细菌感染引起的口腔疱疹。 指导意见： 如果宝宝精神状态好，可以口服抗病毒和消炎药物抗感染治疗，多喝水，用益口或者康复新液涂在口腔疱疹处促进愈合，减轻疼痛，多喝水，体温超过38.5度时口服退热药物退热。如果宝宝精神不好，或者高热不退，最好去医院化验血常规。 病情分析： 小孩出现了舌头有起白泡，有发热的情况，可能患急性上呼吸道感染，主要是疱疹病毒感染引起的，与受凉，吃了上火食品有关。 指导意见： 建议最好做个血法规检查，明确诊断，多喝水，避免受凉，多吃蔬菜水果汁，忌吃上火食品，可以口服利巴韦林颗粒，双黄连口服液，美林，优卡丹治疗。 病情分析： 宝宝出现舌头疱疹发热考虑疱疹性口腔炎的 指导意见： 宝宝的症状可以服用利巴韦林颗粒和蒲地蓝口服液治疗，注意多喝水，禁忌辛辣食物