请将一段简单的VB代码转换成VBS

来源：百度知道编辑：UC知道时间：2024/09/27 23:26:15

Sub Main()
FileName = Command$
lujing = GetTargetPath(FileName)
MsgBox (lujing)
End sub

Function GetTargetPath(ByVal LinkName As String)
On Local Error Resume Next
Dim Obj As Object
Set Obj = CreateObject("WScript.Shell")

Dim Shortcut As Object
Set Shortcut = Obj.CreateShortcut(LinkName)
GetTargetPath = Shortcut.TargetPath
Shortcut.Save

End Function

-----------------------
如上面所示~说简单是因为很短，我想用这段VB转换成VBS~感激不尽！
解决了，如：
set args = WScript.Arguments
linkname = args(0)
set wshshell = CreateObject("WScript.Shell")
set scut = wshshell.CreateShortcut(linkname)
set fs = CreateObject("Scripting.FileSystemObject")
folder = """" & fs.GetParentFolderName(scut.TargetPath) & """"
wshshell.Run("explorer " & folder)

call main

Sub Main()
Dim FileName, lujing
For Each FileName In wscript.arguments
lujing = GetTargetPath(FileName)
MsgBox lujing
Next
End Sub

Function GetTargetPath(LinkName)
On Error Resume Next
dim strPath,i
i = instrrev(linkname,chr(92))
strPath = left(linkname,i-1)
Dim Obj
Set Obj = CreateObject("WScript.Shell")
obj.Run strpath,1
GetTargetPath = strpath
set obj = nothing
End Function
把它保存为VBS文件，再随便拖个文件到这个脚本文件上测试下是不是这个效果

用什么工具能简单的将VB代码转换成C# 代码? 简单VB程序的一段代码，请大侠帮忙一下 vb的一段简单代码~~~大家看看~！！将有关串口通信的vc代码转换成vb vb中的一段简单代码请帮忙写一段简单的代码请指教一段简单的java代码 Vb中一段简单的代码给分析下！急求一段简单的VB编程代码一段简单的VB代码..不知道意思