by Evan (1 Submission)
Category: Windows System Services
Compatability: Visual Basic 4.0 (32-bit)
Difficulty: Unknown Difficulty
Originally Published: Sat 19th May 2007
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Locks a folder(no api)
VBcoders
timer1.integer = 1
end sub
sub Timer1.timer()
on error goto y1
name "C:\Myfoldername" as "c:\ 092342"
y1:
on error goto y2
name "C:\092342" as "c:\ 936349"
y2:
on error goto y3
name "C:\936349" as "c:\521839"
y3:
on error goto y4
name "C:\521839" as "c:\Myfoldername"
y4:
end sub
