Create a Blank Text file if it does not exist in a Given Directory

Question

Hi,
I would like to check if text file in a given folder exists or not if not then create a blank text file in a given directory. I was checking File system task, it has options to create directory and move files, copy files but not creating files.
How can I create a blank text file in a given directory in SSIS using script task or any other way.
Many thanks.
Mustafa
MH

Answer 1

Thanks Saravana for your help. I am using the following code in the script Task two
Imports System
Imports System.Data
Imports System.Math
Imports Microsoft.SqlServer.Dts.Runtime
Imports System.IO
Imports System.Object
Imports System.Security.Cryptography
Imports System.IO.Compression
<System.AddIn.AddIn("ScriptMain", Version:="1.0", Publisher:="", Description:="")> _
<System.CLSCompliantAttribute(False)> _
Partial Public Class ScriptMain
Inherits Microsoft.SqlServer.Dts.Tasks.ScriptTask.VSTARTScriptObjectModelBase
Enum ScriptResults
Success = Microsoft.SqlServer.Dts.Runtime.DTSExecResult.Success
Failure = Microsoft.SqlServer.Dts.Runtime.DTSExecResult.Failure
End Enum
' The execution engine calls this method when the task executes.
' To access the object model, use the Dts property. Connections, variables, events,
' and logging features are available as members of the Dts property as shown in the following examples.
' To reference a variable, call Dts.Variables("MyCaseSensitiveVariableName").Value
' To post a log entry, call Dts.Log("This is my log text", 999, Nothing)
' To fire an event, call Dts.Events.FireInformation(99, "test", "hit the help message", "", 0, True)
' To use the connections collection use something like the following:
' ConnectionManager cm = Dts.Connections.Add("OLEDB")
' cm.ConnectionString = "Data Source=localhost;Initial Catalog=AdventureWorks;Provider=SQLNCLI10;Integrated Security=SSPI;Auto Translate=False;"
' Before returning from this method, set the value of Dts.TaskResult to indicate success or failure.
' To open Help, press F1.
Public Sub Main()
' Add your code here
Dim inputFile As String
Dim outputFile As String
Dim encoding As String
Dim PrivateKeyInXML As String
inputFile = Dts.Variables("Item1Path").Value.ToString()
outputFile = Dts.Variables("OutputFile1").Value.ToString()
encoding = Dts.Variables("Encoding").Value.ToString()
PrivateKeyInXML = Dts.Variables("PrivateKey").Value.ToString()
Dim CallCryptoReader As CryptoReader = New CryptoReader(inputFile, outputFile, encoding, PrivateKeyInXML)
Dts.TaskResult = ScriptResults.Success
End Sub
Public Class CryptoReader
Private _FileStream As FileStream
Private _CryptoStream As CryptoStream
Private _ZipStream As GZipStream
Private _RSAPrivateKeyinXML As String
Dim _CryptoAgent As New System.Security.Cryptography.AesCryptoServiceProvider
'System.Text.Encoding
Sub New(ByVal inputFile As String, ByVal outputFile As String, ByVal encoding As String, ByVal PrivateKeyInXML As String)
_RSAPrivateKeyinXML = PrivateKeyInXML
'Create the crypto agent
_CryptoAgent = AesCryptoServiceProvider.Create
'''''''_CryptoAgent.GenerateIV()
'''''''_CryptoAgent.GenerateKey()
'Open cypher text for reading in
_FileStream = New FileStream(inputFile, FileMode.Open)
ReadHeaderFromFile() 'write out aes key to header
'Create the stream to decrypt the AES part of the file
_CryptoStream = New CryptoStream(_FileStream, _CryptoAgent.CreateDecryptor, CryptoStreamMode.Read)
_ZipStream = New GZipStream(_CryptoStream, CompressionMode.Decompress)
'setup complete - run decrypt to unprotect the rest of the file
DecryptFile(outputFile)
Flush()
Close()
Dispose()
End Sub
Public Sub Close()
_CryptoStream.Close()
_ZipStream.Close()
_FileStream.Close()
End Sub
Public Sub Dispose()
_CryptoStream.Dispose()
_ZipStream.Dispose()
_FileStream.Dispose()
End Sub
Public Sub Flush()
_CryptoStream.Flush()
_ZipStream.Flush()
_FileStream.Flush()
End Sub
Private Sub ReadHeaderFromFile()
'Read the AES Key (Protected by RSA Key) and then the IV
Dim UnProtectedAESKey() As Byte
Dim buffer(_CryptoAgent.BlockSize - 1) As Byte
'Read in protected AES Key
_FileStream.Read(buffer, 0, _CryptoAgent.BlockSize)
'Decrypt AES Key
UnProtectedAESKey = releaseKeyFromRSA(buffer)
_CryptoAgent.Key = UnProtectedAESKey
ReDim buffer(_CryptoAgent.IV.Length - 1)
'get IV
_FileStream.Read(buffer, 0, _CryptoAgent.IV.Length)
_CryptoAgent.IV = buffer
End Sub
Public Sub DecryptFile(ByVal outFilePath As String)
Dim outFile As New FileStream(outFilePath, FileMode.Create)
Dim count As Integer = 1024
Dim buffer(count - 1) As Byte
Do Until count = 0
count = _ZipStream.Read(buffer, 0, count)
outFile.Write(buffer, 0, count)
Loop
outFile.Flush()
outFile.Close()
outFile.Dispose()
End Sub
Private Function releaseKeyFromRSA(ByVal key() As Byte) As Byte()
Debug.Print("Protected AES Key - " & key.ToString)
Dim cspParam As New CspParameters()
Dim RSA As New RSACryptoServiceProvider(1024, cspParam)
'private
RSA.FromXmlString(_RSAPrivateKeyinXML)
Dim decryptedAsByte() As Byte = RSA.Decrypt(key, True)
Debug.Print("Release RSA - " & System.Text.Encoding.ASCII.GetString(decryptedAsByte))
Return decryptedAsByte
End Function
End Class
End Class
I am using the Outputfile1 variable. this is the variable where the path of the file will come which was created in the previous script task. In this task i got the exception that it is alread in use.
MH