Jobs
Author: Evan Date Submitted: 5/19/2007 Category: Windows Operations Compatibility: VB 6,VB 5,VB 4/32 This code has been accessed 9516 times.
Email Yourself this snippet:
None
Code
sub form_load() 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
