Question

大家好日子，

好的，这就是场景......我需要搜索目录以查看文件是否存在。例如35325553AW.flpart，我正在使用此代码使用部分名称搜索文件的存在：

Dim FileLocation As DirectoryInfo = _ 新的DirectoryInfo（“C：\ Folder \ Subfolder \ Data \ Input \”）

Dim fi As FileInfo（）= FileLocation.GetFiles（“ 35325553 .flpart”）

最后它起作用，因为我在目录文件夹中有一个文件，当我检查“fi”变量时，它告诉我该值为fi {Lenght = 1}。

现在主要问题是......

有人可以帮助我使用代码将现有文件的名称作为字符串返回，以便我可以在组合框中显示它。

如果我搜索35325553，我需要在组合框35325553AW中显示，因为这是仅仅删除扩展名的文件，希望这很清楚，你可以帮助我。

问候

Answer 1

美好的一天，我终于找到了办法，通过互联网阅读，这就是我能够做到的。

希望有人帮助，

For Each foundflpart In My.Computer.FileSystem.GetFiles(
        "Directory",
        FileIO.SearchOption.SearchTopLevelOnly,
        "*35325553*.flpart") ' This returns: /Directory/35325553aw.flpart as string

        oestring = Replace(foundflpart, "Directory", "") ' This leaves only 35325553aw.flpart
        oestring = Replace(oestring, ".flpart", "") ' This leaves only 35325553aw
        oestring = oestring.ToUpper 'and his changes any character to uppercase returning 35325553AW

祝你好运

搜索文件并返回文件名？需要H.e.l.p

1 个答案: