Results 1 to 2 of 2

Thread: General directory scanner

  1. #1
    thinBasic author ErosOlmi's Avatar
    Join Date
    Sep 2004
    Location
    Milan - Italy
    Age
    57
    Posts
    8,777
    Rep Power
    10

    General directory scanner

    Generic script illustrating how to loop inside directories to search for files.
    A general purpose DoTheJob function can me personalized.
    In this case function is just printing file name, date and number of days since last write access to file and today.

    Tip: execute the script once and than execute again. This will give you the idea of what is caching on hard disks usage.
    On my system it can takes something like 1 minute the first time and 10 seconds from second time on.

    _________________________________________________
    [code=thinbasic]
    '-------------------------------------------------------------------------
    'Load needed thinBasic modules
    '-------------------------------------------------------------------------
    USES "FILE" '---File functionalities
    USES "LL" '---Linked list functionalities
    uses "DT" '---Date functionalities
    uses "Console" '---Console functions


    '-------------------------------------------------------------------------
    'Start Main Program
    '-------------------------------------------------------------------------
    dim T1, T2 as double '---Timing counters

    dim SourceDirs as string '---This will contains source directory listing
    '---It can be loaded from a buffer or from a file

    T1 = timer
    '---Just put some directories here separated by $CRLF
    '---This list can be loaded from a file using FILE_LOAD function
    SourceDirs = _
    "C:\" & $crlf & _
    "C:\WINDOWS\" & $crlf & _
    "C:\WINDOWS\SYSTEM32\"


    '---Now parse source list and load an array
    dim vSource() as string
    dim SourceTotal as long value parse(SourceDirs, vSource, $crlf)

    global TotalNumberOfFiles as long
    global TotalSize as quad


    '---OK, now loops through sources and do the job
    dim Count as long
    for Count = 1 to SourceTotal
    if dir_exists(vSource(Count)) then
    console_writeline "--->> Checking dir: " & vSource(Count)
    DoTheJob(vSource(Count))
    end if
    next

    T2 = timer

    console_writeline string$(79, "-")
    console_writeline "Job done in " & format$(T2 - T1, "#0.0000") & " secs"
    console_writeline "Total files checked: " & TotalNumberOfFiles
    console_writeline "Total size in bytes: " & TotalSize
    console_waitkey


    '-------------------------------------------------------------------------
    'DoTheJob function
    '-------------------------------------------------------------------------
    ' Add here the needed logic on files
    ' If you need to delete files older than xxx days just add a line like:
    '
    ' IF nDays > xxx then File_Kill(FileName)
    '
    '-------------------------------------------------------------------------
    FUNCTION DoTheJob(SourceDir as string) as long
    LOCAL Count AS LONG
    LOCAL FileName AS STRING
    LOCAL pList AS LONG
    LOCAL nItems AS LONG
    LOCAL fSize AS QUAD
    local fDate as string
    local nDays as long

    '---Create a list with the files found in source directory
    pList = DIR_LIST(SourceDir, "*.*", %FILE_NORMAL OR %FILE_HIDDEN OR %FILE_SYSTEM OR %FILE_ADDPATH)
    '---Count them
    nItems = LL_Count(pList)

    IF nItems > 0 THEN
    FOR Count = 1 TO nItems

    '---Get the full file name
    FileName = LL_GetItem(pList, Count)

    '---Get some file info
    fSize = File_size(FileName)
    fDate = File_GetDate(FileName, %DATE_TIME_LAST_FILE_WRITE)
    nDays = DT_DateDiff(fDate, date$, %DT_DIFF_IN_DAYS)

    '---Her file name and some data is printed
    '---but any logic can be performed.
    console_writeLine FileName & " FileSize: " & fSize & " " & fDate & " " & nDays

    '---Collect some info ...
    TotalNumberOfFiles += 1
    TotalSize += fSize

    NEXT
    END IF

    END FUNCTION

    [/code]
    www.thinbasic.com | www.thinbasic.com/community/ | help.thinbasic.com
    Windows 10 Pro for Workstations 64bit - 32 GB - Intel(R) Xeon(R) W-10855M CPU @ 2.80GHz - NVIDIA Quadro RTX 3000

  2. #2
    thinBasic MVPs kryton9's Avatar
    Join Date
    Nov 2006
    Location
    Naples, Florida & Duluth, Georgia
    Age
    67
    Posts
    3,869
    Rep Power
    404

    Re: General directory scanner

    Thanks Eros these are so handy and powerful.

    You should make a master compressed version of Eros's super duper scripts!!
    Acer Notebook: Win 10 Home 64 Bit, Core i7-4702MQ @ 2.2Ghz, 12 GB RAM, nVidia GTX 760M and Intel HD 4600
    Raspberry Pi 3: Raspbian OS use for Home Samba Server and Test HTTP Server

Similar Threads

  1. Office 3D (like) scanner
    By ErosOlmi in forum Technology
    Replies: 4
    Last Post: 29-01-2010, 23:33

Members who have read this thread: 0

There are no members to list at the moment.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •