[VB6] Cancellare un file

[Luciano79]

Circa 1 secondo a file (5 MB)
Grandissimo

[oregon]

Originariamente inviato da Luciano79
Circa 1 secondo a file (5 MB)
Grandissimo

Bene ... mi fa piacere ...

E dato che le dimensioni non sono trascurabili, piu' veloce potrebbe essere non utilizzare una stringa ma un array di byte posti a zero binario (trattati molto piu' velocemente) ... ovvero

Dim fh As Integer
Dim s() As Byte

fh = FreeFile
Open "C:\testo.txt" For Binary As #fh
ReDim s(1 To LOF(fh)) As Byte
Put #fh, , s
Close #fh

Fai le prove e fammi sapere ...