Vbscript 如何获取当前选定文件的路径
VBScript是否具有在文件资源管理器中获取当前选定文件路径的功能？如果是，功能是什么？我在找像这样的东西Vbscript 如何获取当前选定文件的路径,vbscript,selection,explorer,livecode,Vbscript,Selection,Explorer,Livecode,VBScript是否具有在文件资源管理器中获取当前选定文件路径的功能？如果是，功能是什么？我在找像这样的东西 Set fileObj = CreateObject("Scripting.FileSystemObject") dim filepath filepath = fileObj.GetCurrentSelection() 'doesn´t exist dim result result = filepath 'communicate with LiveCode 我写了一个简单的例子
Set fileObj = CreateObject("Scripting.FileSystemObject")
dim filepath
filepath = fileObj.GetCurrentSelection() 'doesn´t exist
dim result
result = filepath 'communicate with LiveCode
请记住，可能有多个打开的windows资源管理器窗口，这将列出所有窗口。
函数GetSelectedFiles（）以字符串数组的形式返回路径 暗显文件列表，窗口，选择编辑项 '通过在字典键中存储路径来避免重复 Set FileList=CreateObject（“Scripting.Dictionary”） 使用CreateObject（“Shell.Application”） 对于.Windows中的每个窗口 “跳过IE窗口 如果InStr（1，Window.FullName，“iexplore.exe”，vbTextCompare）=0，则 对于Window.Document.SelectedItems中的每个SelectedItem 文件列表（SelectedItem.Path）=空 下一个 如果结束 下一个 以 GetSelectedFiles=FileList.Keys的路径数组 端函数 MsgBox“选择项目后单击确定”_ vbOKOnly或vbInformation“选择一些项目” 调暗选定的文件 SelectedFiles=GetSelectedFiles MsgBox“您选择的：”&vbNewLine&vbNewLine&_ 联接（SelectedFiles、vbNewLine）、vbOKOnly或vbInformation，“选定项” '循环通过数组 '暗文件项 '对于所选文件中的每个文件项 'WScript.Echo文件项 ”“接着呢
试试这个，这样你就可以得到当前选定文件的路径。你还需要
Set objFS=CreateObject("Scripting.FileSystemObject")
Set objArgs = WScript.Arguments
strFile= objArgs(0)
Set objFile = objFS.OpenTextFile(strFile)
Set objFile = objFS.GetFile(strFile)
WScript.Echo objFile.Path
不，没有。根据您实际想要实现的目标，您可以添加一个上下文菜单项，该项使用选定对象的路径调用VBScript。如果你解释了你需要这个的原因，你可能会得到更好的答案。谢谢你的回复。我想在现有软件中添加一些脚本功能，并允许获取有关当前选定文件的信息、复制选定文件以及其他基本操作。我会考虑使用上下文菜单。如果您使用“浏览文件夹”选择了文件/文件夹，则很容易获取所选文件。@Pankaj您误解了这个问题。你的评论让未来的读者感到困惑。显然如此。。。我的错，谢谢。我要试试这个。我会再打给您。我收到以下错误：
脚本：C\Users\USER\Desktop\path.vbs，第10行，字符：17，错误：对象不支持此属性或方法：“Windows.Document.SelectedItems”，代码：800A01B6，来源：Microsoft VBScript运行时错误