UI自动化/检索文件扩展名

Question

我的项目任务是要求我从只能在屏幕上显示X和Y的文件夹中检索特定文件。 在XP中，我设法利用了Windows资源管理器实质上是列表视图的事实，并使用WM_HITTEST消息获取有关文件的信息，但在Windows 7中却并非如此。

为了解决此问题，我使用了UI Automation，它是处理此类问题的好工具，唯一的问题是，在这种情况下，我正在查看的Windows句柄属于桌面，并且桌面可能包含多个相同的文件名称，但具有不同的扩展名（并且Windows配置为“隐藏已知文件类型的扩展名”），UI自动化不会将扩展名返回给我。 我已经尝试了很多事情，但我找不到任何强有力的解决方案，这将使我100％的成功。

有人尝试过吗？ 成功吗？

Answer 1

您能否提供有关“文件夹中的特定文件”的更多详细信息？
您将使用什么规则来手动识别文件？

我不会说通过GUI是此类情况的最佳方法。 如果有什么可以用来识别文件的文件，存储在文件/文件夹系统中，我将尝试通过后端。

一个简单的例子来说明。 计算文件夹中包含的文本文件的总数，并存储找到的所有Excel文件的路径。

Dim sFolder
Dim FSO, objFolder, objFile, objXLSList
Dim intTXTCount

sFolder = "C:\TEMP"

Set FSO = CreateObject("Scripting.FileSystemObject")
Set objXLSList = CreateObject("Scripting.Dictionary")

Set objFolder = FSO.GetFolder(sFolder)
intTXTCount = 0
For Each objFile In objFolder.Files
 If Regex_Test(objFile.Name, ".*\.[t,T][t,T][t,T]") Then
  intTXTCount = intTXTCount + 1
 End If
 If Regex_Test(objFile.Name, ".*\.[x,X][l,L][s,S]") Then
  objXLSList.Add objXLSList.Count, objFile.Name
 End If
Next

谢谢，
阿尔伯特·加雷耶夫
http://automation-beyond.com/