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.
for I = 0 to 25
? CHR(ASC("A")+I)+":",DriveType(CHR(ASC("A")+I)+":")
Next
close all
clear
set alte to c:\repfile.txt
set alte on
** use net View to put resources into a text file
! Net View > c:\res.txt
** read the text file
MyString = filetostr("c:\res.txt")
** scan the results
for X = 1 to memlines(MyString)
** where you have a network name...
IF Left(Mline(MyString,X),2) = "\\"
** look for resources
MyNetworkName = AllTrim(left(Mline(mystring,X),21))
NoFolders = ANETRESOURCES(MyFolders,MyNetworkName,1)
If NoFolders > 0
? "Shared Folders on "+MyNetworkName+": "
for I = 1 to NoFolders
? Myfolders(I)
Next
else
? "No Shared Folders on : "+MyNetworkName
endif
Endif
Next X
set alte off
set alte to