列表中的新文件夹,来自vb.net中的文本文件

时间:2017-05-10 13:43:49

标签: vb.net

我希望能够从存储在文本文件中的列表中创建新文件夹。 名称存储如

test1  
test2  
test3 

所以我的代码到目前为止,加载了创建新文件夹的路径(这是给定父文件夹中最早的文件夹),存储在另一个文本文件中#34; Foldercreation.txt"

然后打开文件,其中包含我要创建的文件夹的名称," Folderstocreate.txt"并将它们全部存储在filereader2中。

但是当尝试为每行创建文件夹时没有任何反应。

我目前的代码;

Dim fileReader, filereader2 As System.IO.StreamReader
    Dim stringreader, parfolder As String
    Dim path, foldername As List(Of String)
    Dim count As Byte

  If MsgBox("Are you sure you want to create these folders?, 

Before clicking yes, make sure EVERYONE is out of paperport & you have entered the correct numbers.", MsgBoxStyle.YesNo, "WARNING!") = MsgBoxResult.Yes Then

            If strnumbx.Text = "" Then
                MsgBox("You have not entered a start number for the folders.", MsgBoxStyle.OkOnly, "Error")
            End If

            'Loads a text file at the given location, to read to.
            fileReader = My.Computer.FileSystem.OpenTextFileReader("C:\Data\Test\Foldercreation.txt")
            'Set stringreader as the read line from the file
            stringreader = fileReader.ReadLine()

            path = System.IO.Directory.GetDirectories(stringreader).ToList
            path.Sort()
            count = path.Count - 1
            parfolder = path(count)

            'System.IO.Directory.CreateDirectory(parfolder & "\test")



            filereader2 = New StreamReader("C:\Data\Test\Folderstocreate.txt", True)

            filereader2.ReadToEnd()

            For Each line In filereader2.ReadToEnd()
                System.IO.Directory.CreateDirectory(parfolder & fileReader.ReadToEnd(count - 1))
                count = count + 1
            Next
        End If

        fileReader.Close()
        filereader2.Close()

1 个答案:

答案 0 :(得分:1)

此功能可以执行此操作,但您可能需要进行一些异常处理。

如果不存在,

protected void Page_Load(object sender, EventArgs e) { TreeProvider cmsTree = new TreeProvider(MembershipContext.AuthenticatedUser); var node = cmsTree.SelectSingleNode(SiteContext.CurrentSiteName, "/", "en-US"); TreeNodeCollection myChildren = node.AllChildren; IEnumerable<TreeNode> treeNodes = myChildren.AsEnumerable<TreeNode>(); for (int i = 0; i < 3; i++) { foreach (var tree in treeNodes.Where(x => x.NodeLevel == i)) { System.Web.UI.WebControls.TreeNode ParentNode = new System.Web.UI.WebControls.TreeNode(); ParentNode.Text = "Document ID " + tree.DocumentID.ToString() + ". " + tree.DocumentName.ToString() + " Level " + tree.NodeLevel + " Parent " + tree.NodeParentID + " Node ID " + tree.NodeID; ParentNode.Value = tree.DocumentID.ToString(); AddNodes(ParentNode); tvContentTree.Nodes.Add(ParentNode); } } } /// <summary> /// Adding child for the parent /// </summary> /// <param name="tNode"></param> private void AddNodes(System.Web.UI.WebControls.TreeNode tNode) { TreeProvider cmsTree = new TreeProvider(MembershipContext.AuthenticatedUser); var node = cmsTree.SelectSingleNode(SiteContext.CurrentSiteName, "/", "en-US"); TreeNodeCollection myChildren = node.AllChildren; IEnumerable<TreeNode> treeNodes = myChildren.AsEnumerable<TreeNode>(); foreach (var tree in treeNodes.Where(x => x.NodeParentID == Convert.ToInt32(tNode.Value))) { System.Web.UI.WebControls.TreeNode ChildNode = new System.Web.UI.WebControls.TreeNode(); ChildNode.Text = "Document ID " + tree.DocumentID.ToString() + ". " + tree.DocumentName.ToString() + " Level " + tree.NodeLevel + " Parent " + tree.NodeParentID + " Node ID " + tree.NodeID; ChildNode.Value = tree.DocumentID.ToString(); tNode.ChildNodes.Add(ChildNode); } } 将创建所有父文件夹。

Directory.CreateDirectory