命令提示符＆＃34;访问被拒绝＆＃34;在尝试创建＆＃34; dir / b file.csv＆＃34;

Question

我正在尝试创建一个VBA脚本，该脚本定位目录并创建一个包含该目录中所有文件名称的.csv。

我可以通过shift +右键单击文件夹＆gt;手动成功完成此操作。打开命令提示符＆gt; ＆＃34; dir / b＆gt; FILE.CSV＆＃34;

但是，当我尝试使用以下命令行在我的脚本中实现时，我得到访问被拒绝错误。任何有关识别此错误的帮助都表示赞赏。

命令是：dir /b [Folderpath] > [PathtoFile]

谢谢，

Answer 1

当只有一列信息时，不确定为什么需要CSV文件，但是如果你想用VBA完成它，这应该可以解决问题。将sFolder调整为您要查看的文件夹。

Public Sub MakeFileCSV()
  Dim sFiles() As String
  ReDim sFiles(0)
  Const sFolder = "C:\"
  Dim sOutput As String
  sOutput = "C:\Users\" & Environ$("Username") & "\Desktop\Output.csv"
  Dim sFilename As String
  Dim nIndex As Integer

  ' read the files
  sFilename = Dir(sFolder)
  Do Until sFilename = ""
    ReDim Preserve sFiles(UBound(sFiles) + 1)
    sFiles(UBound(sFiles)) = sFilename
    sFilename = Dir()
  Loop

  ' output data
  Open sOutput For Output As #1
  For nIndex = 1 To UBound(sFiles)
    Print #1, sFiles(nIndex)
  Next
  Close #1

  MsgBox "done"

End Sub