如何检查文件名?

时间:2015-12-16 04:18:21

标签: vbscript hp-uft

我是HP UFT的新手我正在尝试编写一个脚本来弄清楚如何在桌面中找出文件的文件名。我知道如何使用SystemUtil.run打开Desktop文件夹,但我不知道如何获取文件夹中某个文件的文件名并将其存储为字符串。我怎么能这样做?我尝试使用记录功能,但它似乎没有捕获文件名。

1 个答案:

答案 0 :(得分:0)

如果您知道该文件夹I've found here an example that you can use(adapted and translated to English)

nomfich=InputBox("Please type the full name of your directory to explore", _ 
    "répertoire vbs","c:\mes documents") 
Set fs = CreateObject("Scripting.FileSystemObject") 
Set rep=fs.getFolder(nomfich) 
txt="" 
for each fich in rep.files 
txt=txt & chr(10) & fich.name & " (created the " & left(fich.DateCreated,8) & ")" 
next 
MsgBox txt,,"liste of files in the directory " & rep.name 

当然,这会为您提供完整的文件列表。如果您的文件名包含例如字符串“MyFile”,则可以这样调整:

MyPath = "C:\MyPath\"
Set fs = CreateObject("Scripting.FileSystemObject") 
Set rep=fs.getFolder(MyPath) 
txt="" 
For Each myFile In rep.files 
    If Instr(myFile.name, "MyFile") > 0 Then ' Is true if the filename includes "MyFile"
        (do here what you have to do with the file you just identified)
        Exit For
    End If
Next 

在该示例中,myFile.name是文件的名称。循环为您提供“C:\ MyPath \”目录中的所有内容。当然,根据您的确切需要,可以进行很多调整。