xml - XML 与链接 & VB 搜索 & 删除文件扩展

Question

我有一个 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

结束类

Answer 1

如何删除 vb.net 中的文件：

        Try
            File.Delete(PathAndFile)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

要获取文件的年龄：

       MsgBox(System.IO.File.GetLastWriteTime("c:\pagefile.sys").ToLocalTime)

Answer 2

我想通了...

Public Sub Main()

    'Declare the XML file.
    Dim xmldoc As New XmlDataDocument()
    Dim xmlnode As XmlNodeList
    Dim i As Integer
    Dim str As String
   'Get xml file and load it.
    Dim fs As New FileStream("C:\Test\sample.xml", FileMode.Open, FileAccess.Read)
    xmldoc.Load(fs)
    'Read the children. Case sensitive
    xmlnode = xmldoc.GetElementsByTagName("Area")

    For i = 0 To xmlnode.Count - 1
        xmlnode(i).ChildNodes.Item(0).InnerText.Trim()
        str = xmlnode(i).ChildNodes.Item(0).InnerText.Trim()
    MsgBox(str)

只需要对删除位进行排序，因为 msgbox 可以看到输出，我正在寻找下一部分......