Hi I can someone give me some examples and reading and writeing files useing the Win API at the moment I have just been useing the normal vb way Open file for binary and so On.
Anyway Since I made a new program that can removes files form your system like a file wipeing tool I have run in to problums with the speed when dealing with big files anyway I hope someone can help. I have also included some of the code I am useing the so you will see what I mean when I say it goes solw. well I hope someone can help anyway I will be very helpfull.
Private Function WipeFiles(lzPath As String)
Dim Icount As Long
Dim TChar1 As String
Dim TChar2 As String
Dim T As Long
TFile = FreeFile
On Error Resume Next
x = Dir(lzPath, vbHidden)
Do While x <> ""
Open lzPath & x For Binary As #TFile
FLen = LOF(TFile)
For Icount = 0 To FLen
TChar1 = Chr(Val(Int(160 * Rnd) + 1))
TChar2 = Chr(Val(Int(60 * Rnd) + 2))
T = Seek(TFile)
Put #TFile, TFile, TChar1
Put #TFile, T, TChar2
Kill lzPath & x
x = Dir
TChar1 = "": TChar2 = "": FLen = 0: Icount = 0: T = 0
Also please let me know if there is some thing wrong with the code I useing. or why it might be going slow