Welcome to SPN

Register and Join the most happening forum of Sikh community & intellectuals from around the world.

Sign Up Now!

Deleting unfound external files

Discussion in 'Information Technology' started by John, Jul 28, 2006.

  1. John

    John
    Expand Collapse
    Guest

    Hi

    How can I do this programmatically;

    1. Read the first file in a folder.

    2. Search for its path+name in a field in a table.

    3. If not found, delete the file in the folder.

    4. Repeat from step1 until all files in the folder checked.

    Thanks

    Regards
     
  2. Loading...

    Similar Threads Forum Date
    Sikh News Is Mahesh Bhatt considering deleting Meera's controversial kissing ... Breaking News Mar 4, 2005

  3. Douglas J Steele

    Douglas J Steele
    Expand Collapse
    Guest

    Something like the following untested air-code:

    Dim strFolder As String
    Dim strFile As String

    strFolder = "C:\Some Folder\Some Subfolder\"
    strFile = Dir$(strFolder & "*.*")
    Do While Len(strFile) > 0
    If IsNull(DLookup("[SomeField]", "[SomeTable]", _
    "[PathAndFile] = '" & strFolder & strFile & "'") Then
    Kill strFolder & strFile
    End If
    strFile = Dir()
    Loop

    --
    Doug Steele, Microsoft Access MVP
    http://I.Am/DougSteele
    (no e-mails, please!)


    "John" <John@nospam.infovis.co.uk> wrote in message
    news:%23wKEaKwiGHA.1552@TK2MSFTNGP03.phx.gbl...
    > Hi
    >
    > How can I do this programmatically;
    >
    > 1. Read the first file in a folder.
    >
    > 2. Search for its path+name in a field in a table.
    >
    > 3. If not found, delete the file in the folder.
    >
    > 4. Repeat from step1 until all files in the folder checked.
    >
    > Thanks
    >
    > Regards
    >
    >
     

Share This Page