对象实例化后反查出所在库文件！
有如下代码：
Dim FSO As Object, P As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Set P = FSO.GetFile("C:\Windows\System\scrrun.DLL")
在此时如果程序无错的话，如何通过 FSO 或者 "Scripting.FileSystemObject" 返查出所属库文件的完整路径和文件名，此例中通过算法过后应该返回"C:\Windows\System\scrrun.DLL"值。本例中用于举例的库文件如果换成自己编写的App.Path & "\VBClass.DLL"，其中工程名为"proClass" 对象名为"objClass"时，
Function GetClassLibrary(cClass As Object) As String
Rem 这其中的代码该如何编写呢！函数还需要 如何改进。
End Function
能给出详细代码 VB6 或者 VB2010 最好。
可以的话请发我邮箱：<LuQiaoRan@FoxMail.COM> 对象 库 返查
[解决办法]
你可以考虑从注册表入手，通过遍历注册表相关区域的项与你的 ClassName 做对比，然后提取出 InprocServer32 项里的默认值。
遍历注册表的位置在 HKEY_CLASSES_ROOT\CLSID\ 里。
技术问题你可以问，很多人也乐于回答，但具体做事的问题还是要你自己去做，即使在现实中带你的师傅都不可能为了教你而帮你做事，更何况是在网上。具体代码你还是自己写吧，不要老想着有什么现成的代码给你用，懒人做程序是没什么人会帮忙的。
[解决办法]
CLSIDFromProgID这个API函数，可以将对象名称转成GUID。
有了GUID就好办了。
可以直接用API函数取路径，或者访问该GUID的注册表键。
