Question

我的问题是如何选择目录中的所有.ppt文件，然后像这样生成一个字符串：

For Each foundFile As String In My.Computer.FileSystem.GetFiles(My.Computer.FileSystem.SpecialDirectories.MyDocuments, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, "*.ppt")
    Next

strFileToCopy = (foundFile)

但它的收获有误。我怎样才能解决这个问题？抱歉我的英语不好。

Answer 1

据我了解您的代码的目的，我建议做这样的事情：

Dim listOfPPTs As List(Of String) = New List(Of String)
For Each foundFile As String In My.Computer.FileSystem.GetFiles(My.Computer.FileSystem.SpecialDirectories.MyDocuments, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, "*.ppt")
    listOfPPTs.Add(foundFile)
Next

你可能会在

中找到一个.ppt文件列表

listOfPPTs

从此列表中，您可以对列表中的每个条目执行操作，例如：

For Each aFile As String In listOfPPTs
  encryptFile(aFile)
Next

Sub encryptFile的代码我会留给你

问候，保罗

如何选择扩展名为.ppt的所有文件并将其作为字符串列表？

1 个答案: