WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

Samples from Users
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Sample Code to Change Ownership on Files

Keywords: 	 change ownership on files

;Program to change ownership on files
;Command line parameters specify starting folder, new owner, include subdirectories, URL of network server
;

AddExtender("WWWNT32I.DLL")
AddExtender("wsrch32i.dll")
xcount=0
flag=8 ;includes hidden files in the search

;make sure there are at least 2 command line parameters, and not more than 4
if param0<2 || param0>4
 Message("USAGE","Owner.exe   < S to include subdirectories> ")
 exit
endif
;param1 contains starting folder, so make sure it exists
If !DirExist(param1)then exit

;check if subdirectories are included
if param0>2
 if StrUpper(param3)=="S" then flag=24
endif

;check if network server specified
if param0<4 then param4=""  ;not specified
 
;start=Askline("PATH","Please enter the starting folder","")
;owner=Askline("OWNER","Please enter the required owner for these files","")
handle=srchInit(param1,"*.*","","",flag)   
   while 1
      xfile=srchNext(handle)
      if xfile=="" then break
      xcount=xcount+1
      ;ErrorMode(@OFF)
      ;owner = wntOwnerGet("", 0, xfile, 300, 0)
      ;ErrorMode(@ON)
      ;Message("%XFILE% Owner is", owner)
		wntOwnerSet(param4, 0, xfile, 300, param2)
   endwhile
srchFree(handle)

exit
;Display(2,"STATUS","FINISHED!")


Article ID:   W14952
File Created: 2001:11:08:12:41:06
Last Updated: 2001:11:08:12:41:06