ファイルが保存されている場所へのパスを含む XML ファイルがあります。
<ROOT>
<FILENAME>
<LOCATION>E:\Test\</LOCATION>
</FILENAME>
</ROOT>
この XML ファイルを使用して、VB がこのリンクを使用して *.txt、*.log、*.csv ファイル拡張子を検索するようにします。以下のようにコードを削除します。
注意: 私は SSIS でスクリプトを作成しています。
Imports System
Imports System.Data
Imports System.Math
Imports Microsoft.SqlServer.Dts.Runtime
Imports System.Xml
Imports System.IO
Public Sub Main()
Try
For Each f In Directory.GetFiles("C:\Test\sample", "*.log", SearchOption.AllDirectories)
System.IO.File.GetLastWriteTime("C:\Test\sample").ToLocalTime()
File.Delete(f)
Next
Catch ex As UnauthorizedAccessException
MsgBox(ex.Message)
End Try
Dts.TaskResult = ScriptResults.Success
End Sub
クラス終了