Delete Files Based On a Text Field

[Learn2010]

I have a database and use part of it for billing. I create a file and upload it to a site. The structure of the file is M123456.1. The next file generated would be M123456.2, and so on. In order to keep the folder cleaned out and make it easy to identify the file to upload, I get rid of similar files in the folder with the following line of code:
If Dir("C:\Folder1\Folder2\M*.*") <> "" Then Kill "C:\Folder1\Folder2\M*.*"
I would like to use this for something similar. Instead of using the M123456 as the file name to delete, I would like to use a field name on a subform from where this code is activated. This field is used to identify customers. For example, if the Customer ID is 123456, I would like to delete all files that start with that number. I can’t get it to work.
If Dir("C:\Folder1\Folder2\CustomerID") <> "" Then Kill "C:\Folder1\Folder2\CustomerID"
Any ideas?
Thank you.

 

[RuralGuy]

Try something like:

Dim YourStringVar As String

YourStringVar = C:\Folder1\Folder2" & CustomerID

If Dir( YourStringVar ) <> "" Then Kill YourStringVar

Warning: Untested

 

[isladogs]

Create a string variable called strCustID
It doesn't matter if your customer id field is a number as its going to be used as art of a string.

When the button is clicked add code similar to this

strCustID = Me.CustomerID

Then replace your Kill statement with

 Kill "C:\Folder1\Folder2\" & '" & strCustID & "'"

EDIT RuralGuy got there first. Hi Allan

 

[Learn2010]

Tried several variations and could not get it to work.

 

[isladogs]

Tried several variations and could not get it to work.

That doesn't help us help you.
Be more specific. What exactly happened?

When you reply, supply the code you used.

 

[Learn2010]

Dim MyVar As String
MyVar = "C:\Folder1\Folder2" & CustomerID
If Dir(MyVar) <> "" Then Kill MyVar

 

[isladogs]

You didn't say what happened but its easy to fix.
Add a backslash after Folder2

 

[Learn2010]

Nothing happened. But, the Customer ID will be a number with six digits.

 

[RuralGuy]

I ttried editing my post right away and it would not stick. change this line:
MyVar = "C:\Folder1\Folder2" & CustomerID
...to...
MyVar = "C:\Folder1\Folder2" & CustomerID

 

[isladogs]

Try my similar code instead
If it still doesn't work, add a Debug.Print line to view the output in the immediate window

 

[RuralGuy]

Follow Ridders directions. Hi Colin!

 

[isladogs]

Hi Allan. Have another look at your post #9.

 

[RuralGuy]

The site will not let me post that trailing "".
???? I reported it to the Mods.

 

[RuralGuy]

Wow. It even stripped it out of that post.

 

[Gasman]

Wow. It even stripped it out of that post.

MyVar = "C:\Folder1\Folder2\" & CustomerID

 

[isladogs]

Testing ....

C:\Folder1\Folder2\

Odd. Ok for me. Obviously site doesn't like you today.

computer says no...

 

[Gasman]

C:\Folder1\Folder2\

"C:\Folder1\Folder2"

Doesn't appear to work when you use quotes and outside of a code window?

 

[RuralGuy]

So adding the code tags allowed the trailing ""?

"\"

 

[RuralGuy]

Yep. That's weird.

 

[RuralGuy]

C:\Folder1\Folder2\

"C:\Folder1\Folder2"

Doesn't appear to work when you use quotes and outside of a code window?

Thanks for the update.