Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
const ForAppending=8 dim fso, fldShare, fldChild, fil, ts, sfolder, files, folder set fso=createobject("Scripting.FileSystemObject") sFolder = "C:\Users\Jeremy\Desktop\Halina\" set fldShare=fso.getFolder("C:\Users\Jeremy\Desktop\Halina\") Set NewFile = fso.CreateTextFile(sFolder&"\FileList.txt", True) Set folder = fso.GetFolder(sFolder) Set files = folder.Files 'loop through all folders off the shared directory for each fldChild in fldShare.subfolders NewFile.WriteLine("Directory " & fldChild.Name) on error goto 0 'turn error handling off 'now check files in the folder for each fil in fldChild.files NewFile.WriteLine("Directory " & fldChild.Name & "\" & fil.Name) on error resume next set ts=fil.openAsTextStream(ForAppending) if err.number<>0 then msgbox "(Read Only)" else ts.close set ts=nothing end if on error goto 0 next set fil=nothing next 'tidy up set fldChild=nothing set fldShare=nothing set fso=nothing msgbox "Done"
Join the community of 500,000 technology professionals and ask your questions.