Đôi lúc bạn cần hiển thị hết tất cả các file trong 1 thư mục 1 cách nhanh nhất. Giải pháp tốt nhất tôi nghĩ tới là dùng mã vbscript, không cần biên dịch, chỉ cần save and run :)

On Error Resume Next
  Dim fso, folder, files, NewsFile,sFolder
  
  Set fso = CreateObject("Scripting.FileSystemObject")
  sFolder = Wscript.Arguments.Item(0)
  If sFolder = "" Then
      Wscript.Echo "No Folder parameter was passed"
      Wscript.Quit
  End If
  Set NewFile = fso.CreateTextFile(sFolder&"\FileList.txt", True)
  Set folder = fso.GetFolder(sFolder)
  Set files = folder.Files
  
  For each folderIdx In files
    NewFile.WriteLine(folderIdx.Name)
  Next
  NewFile.Close

Nội dung xấu	(được sửa lại cách đây 2 năm )	Hỏi cách đây 2 năm hotbeehoney 4965 ● 0 ● 0 ● 0
Thêm ý kiến (0)