A vbs script which lists files in the specified dir.

listFile.vbs

Option Explicit

Dim objArgs
Set objArgs = WScript.Arguments

If objArgs.Count = 1 Then
  Call listFile
End If

Sub listFile()

  Dim objFileSys
  Dim objDir
  Dim objFile

  Set objFileSys = CreateObject("Scripting.FileSystemObject")
  Set objDir = objFileSys.GetFolder(objArgs(0))

  Dim strFile
  For Each objFile In objDir.Files
    strFile = strFile & objFile.Path & vbCrLf
  Next

  WScript.Echo(strFile)

End Sub