看看
Dim Code As StringCode = "dim a as string = args(0)" & vbcrlfCode = Code & "Dim ifo As new FileInfo(a) " & vbcrlfCode = Code & "dim qsnd = ifo.Name.replace(ifo.Extension,nothing)" & vbcrlfcode = code & "return qsnd"
Output.Show(Code)Functions.remove("qsnd10")Functions.Add("qsnd10",Code)Functions.Complie()
Dim s = Functions.Execute("qsnd10", "d:\test.jpg")msgbox(s)