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.

UDF - Find a File

Keywords: 	 UDF - Find a File 

#DefineFunction FindMyFile(dir,DaFile)
   origdir=DirGet()
   DirChange(dir)
   if FileExist(dafile)
      retval=strcat(DirGet(),DaFile)
   else
      dirlist=DirItemize("*.*")
      dircount=ItemCount(dirlist,@tab)
      retval=""
      for xx=1 to dircount
         thisdir=ItemExtract(xx,dirlist,@tab)
         retval=FindMyFile(thisdir,DaFile)
         if retval!="" then break
      next
   endif
   DirChange(origdir)
   return(retval)
#EndFunction



lookfor="index.html"
dirstart="c:\bizdocs\incoming\"   ; \ on end !!!

MyFullFileName=FindMyFile(dirstart,lookfor)

if MyFullFileName==""
   Message(lookfor,"not found")
else
   Message("Found",MyFullFileName)
endif

Article ID:   W15752

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

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