Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
strFolder = "C:\Temp"
strTextFile = "C:\myTextFile.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strFolder)
Set objTextFile = objFSO.CreateTextFile(strTextFile, ForAppending, True)
For Each File in objFolder.Files
objTextFile.WriteLine File.Name
Next
Set objTextFile = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
filespec="d:\test\xyz.txt"
folderspec="d:\bin"
set fso=creaeobject("scripting.filesystemobject")
if not fso.folderexists(folderspec) then
wscript.echo "Folder " & folderspec & " does not exist. Operation aborted."
set fso=nothing
wscript.quit 9
end if
sinfo=""
for ofile in fso.getfolder(folderspec).files
sinfo=sinfo & ofile.path & vbcrlf
next
set ots=fso.opentextfile(filespec,2,true)
ots.write sinfo
ots.close
set ots=nothing
set fso=nothing