Vb Directory program Help

[vbcom004]

Hi I am trying to create a program that will read a text file and create a directory type of structure based on the contents in the text file. Basically each line in the text file should have a directory name, a number of

subdirectories and the prefix name of the subdirectory.It should allow the worker to select from a drop down menu�Create Folder Structure�

and have the program read the text file and update

the directory structure under the same directory

as the text file with the information from the

contents in the file. If anyone could help me start this that would be great or if you can tell me where to go to hire someone to help design this that would help too.

[medmondson]

Your application looked like fun...so, I built it. I created a simple text file, then created a class with 3 methods:

 

1. LoadStructureChoices(ByVal cbo As ComboBox) - this method reads and parses the text file. It adds the first field of each line to the combo box which is passed as an argument.

 

2. ShowDirectoryPreview(ByVal StructureSelected As String, ByVal lb As ListBox) - I created this method to add Preview functionality to the application, giving the user a visual clue into the structure they've selected before they select to create the structure. It reads the text file looking at only the first entry of each line. If a match is found, that entry is added to the listbox. Subsequent fields of that line are listed beneath the main directory and indented to show a hierarchy.

 

3. CreateDirectoryStructure(ByVal StructureSelected As String) - I didn't spend the time to allow users to select a location to create the structure, but that should be simple enough. This method, again, finds a matching line in the file and uses the line entries to create the directory and subdirectories.

 

That was a lot of fun. So, thanks. I need to read the rules of the forum, I'm a newbie too...I'm not sure how they feel about posting code before allowing someone to try it on their own. As a Software Development instructor...I would understand that.

 

Good luck to you. I'll keep watching for your progress. I'm curious, what is the intent of the sub directory prefix that you mentioned?

Edited February 19, 2008 by medmondson

[medmondson]

I've read the rules, and I believe it legal to help get you started. If you've gotten this far, forgive my posting this sample: your post didn't indicate how much of the application you've completed. Anyway, here's a sample function which should get you started...at least with loading the available selections into a combo box.

 

Imports System.Windows.Forms
Imports System.IO
Imports Microsoft.VisualBasic.FileIO

Public Class clsDirectoryStructures

   Public Sub LoadStructureChoices(ByVal cbo As ComboBox)

       Dim InputFile As String = Application.StartupPath & "\DirectoryStructures.txt"
       Dim CurrentLine As String()
       Dim CurrentField As String
       Dim StructureLoaded As Boolean
       Dim FileReader As TextFieldParser = My.Computer.FileSystem.OpenTextFieldParser(InputFile)

       FileReader.TextFieldType = FieldType.Delimited
       FileReader.Delimiters = New String() {";"}

       If My.Computer.FileSystem.FileExists(InputFile) Then
           While Not FileReader.EndOfData
               StructureLoaded = False
               Try
                   CurrentLine = FileReader.ReadFields
                   For Each CurrentField In CurrentLine
                       If StructureLoaded = False Then
                           cbo.Items.Add(CurrentField.ToString())
                           StructureLoaded = True
                       End If
                   Next
               Catch ex As Exception
                   MessageBox.Show("An error occurred while loading available structures." _
                   & Environment.NewLine _
                   & "Description: " & ex.ToString(), "File Structures", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
               End Try
           End While
       Else
           MessageBox.Show("An error has occurred." _
           & Environment.NewLine _
           & "Description: Unable to locate DirectoryStructures.txt", "File Structures", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
       End If

       If cbo.Items.Count > 0 Then cbo.SelectedIndex = 0
   End Sub

End Class

Edited February 19, 2008 by medmondson