Public Sub Main()
        For tmppathnum As Integer = 1 To 4
            Set_LOCKWWS(My.Settings.Export_Receipt_Path + tmppathnum.ToString())
        Next
    End Sub
 
    Public Sub Set_LOCKWWS(ByVal tmppath As String)
        Dim swLockwws As New System.IO.StreamWriter(tmppath + "LOCK.WWS")
        Dim sLockwws As String = DateTime.Now
 
        swLockwws.WriteLine(sLockwws)
        swLockwws.Flush()
        swLockwws.Close()
    End Sub

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov