Question

试图做一个 vbscript, 将所有内容都列在 dir 中, 并阅读每个文件来提取数据, 以便使用此数据作为参数来操作和运行一个电动弹壳脚本。我找到了以下数据可以启动, 但是它不起作用。有人能帮助吗?

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      make a reference to a directory
    Dim di As New IO.DirectoryInfo("c:")
    Dim diar1 As IO.FileInfo() = di.GetFiles()
    Dim dra As IO.FileInfo

     list the names of all files in the specified directory
    For Each dra In diar1
        ListBox1.Items.Add(dra)
    Next
End Sub

Answer 1

VBScript与VB非常相似, 但它是很长一段时间以来, 我上次使用VB...

AFAIR ListBox1.Items.Add() expects and Item or a string as a parameter, NOT a FileInfo object Try to use ListBox1.Items.Add(FileInfo.FullName)

友情链接