Public Class CLS_MVDist2ExportReceipt
    Public Sub Main()
        Dim tmppathnum As Integer = 1
 
StartMvDist2ExportReceipt:
        Dim tmppath As String = "my.settings.Export_Receipt_Path" + _
          tmppathnum.ToString
 
        Set_LOCKWWS()
 
 
        If tmppathnum = 4 Then
            GoTo ExitMVDist2ExportReceipt
        Else : tmppathnum = tmppathnum + 1
            GoTo StartMvDist2ExportReceipt
        End If
ExitMVDist2ExportReceipt:
    End Sub
 
    Public Sub Set_LOCKWWS()
        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
 
 
End Class