From Newz, 1 Year ago, written in Visual Basic.
This paste is a reply to VB Script Main from Newz - view diff
Embed
  1. On Error Resume Next
  2.   Dim fso, folder, files, NewsFile,sFolder
  3.  
  4.   Set fso = CreateObject("Scripting.FileSystemObject")
  5.   Set NewFile = fso.CreateTextFile("Z:\FileList.txt", True)
  6.   Set folder = fso.GetFolder("Z:\")
  7.   Set files = folder.Files
  8.  
  9.   For each folderIdx In files
  10.     NewFile.WriteLine(folderIdx.Name)
  11.   Next
  12.   NewFile.Close

Replies to Files In Z VBScript rss

Title Name Language When
Directories In Z VBScript Newz vb 1 Year ago.