Main.vb

 Imports System
Imports System.IO

Module Main

    'Developed By Gehan Fernando ........
    'Mail :- gehan_g7@yahoo.com , f.gehan@gmail.com

    Public RES_VALUE As DialogResult
    Public FRM_SIZE As New Size(660, 565)
    Public USER_ID As String = ""
    Public PASSWORD As String = ""
    Public USER_NAME As String = ""
    Public CREATE_DATE As Date
    Public VALID As Int16 = 0
    Public EXPIRE_DATE As Date
    Public TO_DATE As Date
    Public EXPIRED As Boolean = False
    Public NEVER As Boolean = True
    Public DEFAULTPATH As String = "C:\DMSDocuments"
    Public COMPLETEPATH As String = String.Empty

    Public IsRestart As Boolean = False
    Private DirInfo As IO.DirectoryInfo

    Public Sub SET_DATA_FOLDER()

        If My.Computer.FileSystem.DirectoryExists(DEFAULTPATH) = True Then
            DirInfo = My.Computer.FileSystem.GetDirectoryInfo(DEFAULTPATH)
            DirInfo.Delete(True)
        Else
            My.Computer.FileSystem.CreateDirectory(DEFAULTPATH)
        End If

    End Sub

End Module

Project Homepage: