Embed or hide files 1

[Bubbler]

I am using simple txt files in a folder to hold info, not a lot but approx 50 seperate files, to read them into a text box via a list box I am doing this:
Dim sTemp As String
Dim SelectedItem As String
Dim WorkDirectory
WorkDirectory = App.Path & "\files\"
SelectedItem = List1.Text
txtPrep = ""
Open "" & WorkDirectory & "" & SelectedItem & ".txt" For Input As #1
While Not EOF(1)
Line Input #1, sTemp
txtPrep = UCase(txtPrep + sTemp & vbCrLf)
Wend
Close #1

My question: Is there a way to stop users from simply copying them from the app folder? I know you can use resource files to embed avi and images, so is there a method to somehow embed these files so if a user browses to the program folder, they won't see them?
Any thoughts or views?

 

[tb]

Why are you storing this information in text files?

Why don't you store the information somewhere in your database?

If it must be text files ... and you don't want them to scratch around them ... then why don't you create a seperate folder in the windows folder (windows 2000 ... c:\winnt\system32)

You might be able to change the file attribute to be system files and are hidden, but only if the user's explorer settings are to hide system files this would be effective ....

This is only my opinion...


I was standing in the park, wondering why frisbees got bigger as they came closer... then it hit me!

 

[strongm]

You could always use NTFS streams

 

[Bubbler]

Thanks for the NTFS Streams tip strongm
There is a ton of info on the net for this and I think it is the answer I am seeking, I already have somewhat of a working model! Thx again.