| CODE |
| CODE |
BEGINSEARCH t* :TOP SEARCHTYPE s_type SEARCHITEM s_name SEARCHSIZE s_size IF %s_type% == "dir" GOTO SHOWDIR IF %s_type% == "file" GOTO SHOWFILE GOTO DONESEARCH :SHOWDIR CallsCript _DisplayMessageBox "Directory Found: %s_name%" SEARCHNEXT GOTO TOP :SHOWFILE CallsCript _DisplayMessageBox "File Found: %s_name%$eol$%s_size% bytes" SEARCHNEXT GOTO TOP :DONESEARCH ENDSEARCH |
| CODE |
XMLOPEN TestXML ::MXM XMLSetNodePtr TestXML !.FTPServer.User XMLGetNodePtr TestXML XMLPtr XMLGetValue TestXML User1Name !.FTPServer.User:0.Name XMLGetValue TestXML User2Name !.FTPServer.User:1.Name XMLGetValue TestXML User1Pass !.FTPServer.User:0.Password XMLGetValue TestXML User2Pass !.FTPServer.User:1.Password CallScript _DisplayMessageBox "XMLNode Pointer=(%XMLPtr%)$eol$1)%User1Name% / %User1Pass%$eol$2)%User2Name% / %User2Pass%" XMLSetNodePtr TestXML !.FTPServer XMLGetNodeCount TestXML NewUser XMLCreateNode TestXML User XMLSetValue TestXML !.FTPServer.User:%NewUser%.Name Action XMLSetValue TestXML !.FTPServer.User:%NewUser%.Password Script XMLSave TestXML Z:Check.xml XMLCLOSE TestXML |
| CODE |
XMLOpen TestXML ::MXM |
| CODE |
XMLGetValue TestXML User2Name !.FTPServer.User:1.Name |
| CODE |
XMLSetNodePtr TestXML !.FTPServer XMLGetNodeCount TestXML NewUser XMLCreateNode TestXML User |
| CODE |
XMLSetValue TestXML !.FTPServer.User:%NewUser%.Name Action XMLSetValue TestXML !.FTPServer.User:%NewUser%.Password Script |
| CODE |
: : : : |
| CODE |
XMLSave TestXML Z:Check.xml |
| CODE |
XMLCLOSE TestXML |
| CODE |
SET Index 1 SET Total 10 :TOPLOOP IF# %Index% > %Total% GOTO DONELOOP SET MyList%Index% "Some Value %Index% out of %Total%" ADD Index 1 GOTO TOPLOOP :DONELOOP |