Database Search

TechHome

• Alternate Data Stream UDFs
• CD Drive Locker
• Checksum Calculations
• Count Number of Lines in File UDF
• Delete if Older Than
• Delete old TMP files
• Disable Offline Attribute
• Display a Files Property Sheet
• Export to Excel or CSV UDFs
• Extracting last lines of a file UDS
• Fast File Count
• File Read Line
• FileCount UDF
• Find a File
• Find Line Number of Keyword in a Text File
• Get a Signature of a File
• Get Summary File Properties
• Get the Compressed File Size
• Getting True Filenames and Directories UDF
• List all Files Older Than
• Make Available Offline
• PathStripToRoot UDF
• Recursive FileAttrSet
• Recursive List of Files or Directories
• UDF - Find Newest File
• udfArrFileOlderThan
• udfAskDirectory
• udfFileCopyFlat
• XCOPY with some Excludes

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

FileCount UDF

Keywords: 	 FileCount UDF

#DefineFunction UDFFileCount(dir)
   ;Include hidden files
   ;removed IntControl(5,1,0,0,0)

   ;change to desired directory
   DirChange(dir)
   topdir=DirGet()

   ;Count all files in desired directory
   filcount=ItemCount(FileItemize("*.*"),@tab)

   ;Get list of subdirectories
   dirlist=DirItemize("*.*")

   ;Process list
   dircount=ItemCount(dirlist,@tab)
   for xx=1 to dircount
      thisdir=ItemExtract(xx,dirlist,@tab)
      filcount=filcount+UDFFileCount(thisdir)
   next

   ;bump up one directory level
   DirChange("..")
   return (filcount)
#EndFunction

count=UDFFileCount("c:\bizdocs\incoming\")
Message("FileCount",count)

Article ID:   W15751

File Created: 2003:05:13:11:29:56

Last Updated: 2003:05:13:11:29:56