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可以看到输出，我正在寻找下一部分......

带链接的XML＆amp; VBA搜索和;删除文件扩展名

2 个答案: