Here is your solution
1) Create one table in SQL SERVER Database. Here is the create table script
CREATE TABLE [dbo].[tblHoliday](
[HolidayDate] [datetime] NOT NULL,
[HolidayName] [nvarchar](50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL,
[HolidayType] [nvarchar](50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL
) ON [PRIMARY]
2) Insert date as per below query
INSERT INTO tblHoliday
SELECT '2014-01-01','New Years Day','Restricted Holiday'
UNION
SELECT '2014-01-07','Guru Govind Singh Jayanti','Restricted Holiday'
UNION
SELECT '2014-01-14','Pongal','Restricted Holiday'
UNION
SELECT '2014-01-14','Makar Sankranti','Restricted Holiday'
UNION
SELECT '2014-01-26','Republic Day','Gazetted Holiday'
UNION
SELECT '2014-08-15','Independence Day','Gazetted Holiday'
3) Create below procedure in SQL server databas
CREATE PROCEDURE spTodaysDateInspection
AS
BEGIN
Declare @TodaysDateName AS NVARCHAR(10)
Declare @Result AS NVARCHAR(50)
SELECT @TodaysDateName = (
DATENAME(dw,
CAST(DATEPART(m, GETDATE()) AS VARCHAR)
+ '/'
+ CAST(DATEPART(d, GETDATE()) AS VARCHAR)
+ '/'
+ CAST(DATEPART(yy, getdate()) AS VARCHAR))
)
SET @Result=''
IF @TodaysDateName='Sunday' OR @TodaysDateName= 'Monday'
BEGIN
SET @Result='Today is ' + @TodaysDateName
END
IF EXISTS(SELECT HolidayName FROM tblHoliday WHERE CONVERT(datetime, CONVERT(varchar, GETDATE(), 101)) = DateAdd(dd,1,HolidayDate))
BEGIN
SET @Result='Today is day after holiday'
END
SELECT @Result
END
4) Here is the VB.net code
Imports System.Data.SqlClient
Public Class Form1
Private Sub btnCopyfiles_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCopyfiles.Click
Dim cn As New SqlConnection("Server=testsqlserver;Database=TestDB;Trusted_Connection=True;")
Dim vResult As String
cn.Open()
Dim cmd As SqlCommand = New SqlCommand("spTodaysDateInspection", cn)
cmd.Connection = cn
cmd.CommandType = CommandType.StoredProcedure
Dim dtTable As New DataTable
Try
dtTable.Load(cmd.ExecuteReader())
cn.Close()
Catch ex As SqlException
End Try
vResult = dtTable.Rows(0)(0).ToString()
If vResult <> "" Then
My.Computer.FileSystem.CopyFile( _
"Source\CopyFiles.xml", _
"Destination\CopyFiles.xml", overwrite:=True)
End If
End Sub
End Class
Hope this helps. If yes then accept and vote the solution