Help deleting files

[Tridiro]

Hello,

I have about 1300 .jpg files in a folder. the picture files are named a 6 digit number (548712.jpg). In column F resides the corresponding number to the pictures (548712). There are only about 500 numbers in column F.

I need some code that will delete the picture file if it's name is not in column F. Approximately 700 Pictures.

So.... in a nutshell, I need all the files deleted in a folder unless its name is in column F.

Thanks in advance

 

[kpark91]

Hi, Tridiro.

Where are all the picture files located at?
Are they all in the same folder and what is their path?

 

[Tridiro]

yes, they are all in the same folder, example C:\myfiles\mugs\548721.jpg

 

[Tridiro]

This is what I have come up with, but it does not work. i used .txt files instead of .jpg until i get it to work.

My idea here was to loop thru each cell to determined if the file exist. If it does exist i was going to change the .txt extension to .txt1. Then delete all the remaining .txt files. then rename all the .txt1 back to .txt.

I'm sure there is a better way. just not sure on how to accomplish it.

'On Error Resume Next
Range("F2").Select

Do Until ActiveCell.Value = ""

    If Dir("C:\Users\Will\Desktop\New\" & ActiveCell.Value & ".txt") <> "" Then
        Oldname = "C:\Users\Will\Desktop\New\" & ActiveCell.Value & ".txt": Newname = "C:\Users\Will\Desktop\New\" & ActiveCell.Value & ".txt1"
        
    Else
    End If

    ActiveCell.Offset(1, 0).Select

Loop

Kill ("C:\Users\Will\Desktop\New\*.txt")

Oldname = "G:\Alternative programs\HIP\Payments\Mugs\*.txt1": Newname = "G:\Alternative programs\HIP\Payments\Mugs\*.txt"

On Error GoTo 0
End Sub

 

[chuckles1066]

You need something like

Option Explicit
 
Function FileOrDirExists(PathName As String) As Boolean
       
Dim itemp As Integer
     
On Error Resume Next
itemp = GetAttr(PathName)
Select Case Err.Number
    Case 0
        FileOrDirExists = True
    Case Else
        FileOrDirExists = False
End Select
On Error GoTo 0
End Function

in conjunction with something like

If FileOrDirExists(filehere) Then
Kill (filehere)
End If

where filehere = the name of the picture you're checking for

 

[Tridiro]

Thanks for the help, but if I'm understanding your code correctly, would that not delete the files I'm trying to keep?

 

[chuckles1066]

Apologies, I misread your post, this

Option Explicit
 
Function FileOrDirExists(PathName As String) As Boolean
       
Dim itemp As Integer
     
On Error Resume Next
itemp = GetAttr(PathName)
Select Case Err.Number
    Case 0
        FileOrDirExists = True
    Case Else
        FileOrDirExists = False
End Select
On Error GoTo 0
End Function

Sub chuckles1066()
'
'globally declare variables
'
Const fileloc As String = "i:\updates\chuckles"
Dim filelocandname As String
Dim rowc As Long
Dim count As Long

rowc = Range("F" & Rows.count).End(xlUp).Row

For count = 2 To rowc
filelocandname = fileloc & "\" & Cells(count, 6).Value & ".jpg"
If FileOrDirExists(filelocandname) Then
Kill (filelocandname)
End If
Next
End Sub

will delete anything that it finds in Column F.

It's a starting point, I'm still a novice with VBA!

 

[wigi]

Or:

Sub Wigi()
    Const fileloc As String = "i:\updates\chuckles"
    On Error Resume Next
    For count = 2 To Range("F" & Rows.count).End(xlUp).Row
        Kill fileloc & "\" & Cells(count, 6).Value & ".jpg"
    Next
End Sub