Members

Technology Zones

Articles

Hosted By

MaximumASP

Info
Developer Fusion » Microsoft .NET » VB.NET » How to get Folder path dynamic way

How to get Folder path dynamic way

Last post 04-16-2008 8:43 PM by lbn. 8 replies.
Page 1 of 1 (9 items)
Sort Posts: Previous Next

  • 03-26-2008 2:54 AM

    • yr
    • Top 500 Contributor
    • Joined on 06-01-2007
    • United States
    • Member
    • Points 345

    How to get Folder path dynamic way

    Reply Contact

    Hi All,

     

    I am working on vb.net 2005 windows application.I need sample code for  to get path of Particular name folder dynamically ,That folder is any where in system.

    I want to execute the code in form load.

    Thanks in advance!
    • Post Points: 20

  • 03-26-2008 5:32 AM In reply to

    Re: How to get Folder path dynamic way

    Reply Contact

     You can to use the Environment class to this process. The Application class allows to get this too.

    Regards 
    • Post Points: 10

  • 03-26-2008 2:06 PM In reply to

    • yr
    • Top 500 Contributor
    • Joined on 06-01-2007
    • United States
    • Member
    • Points 345

    Re: How to get Folder path dynamic way

    Reply Contact

    Thanks for the reply.Can u provide any link or Sample code for this.

     

    Thank you .
    • Post Points: 5

  • 03-29-2008 8:51 AM In reply to

    Re: How to get Folder path dynamic way

    Reply Contact

    draging a folderbrowser button u can able to get folder path

    if not present in your tool bar add  it by .net component.
    • Post Points: 5

  • 03-29-2008 11:16 PM In reply to

    • lbn
    • Not Ranked
    • Joined on 03-29-2008
    • Denmark
    • New Member
    • Points 45

    Re: How to get Folder path dynamic way

    Reply Contact

    I suppose You need to get a folder name as the user has data stored in this Folder.

    In VB6 the INI file would manage this but in .Net You will have to write to the registery database in the area of Your application.

    There is an other possibility. If You can create a data table in MS Access You could store the information there and place the database in the folder of Your program. This small database could do the work of the INI file. I use this by using an ADODB connection and an ADODB recordset.

    Add ADODB to Your project, create a database in Access, use the code below:

    Public Sub ReadIniData()

    Dim strDBConn As String

    Dim objConn As ADODB.Connection

    Dim objCmd As ADODB.Command

    Dim objRec As ADODB.Recordset

    Dim strCmd As String = "Select * From DataPath"

    strDatabasePath = My.Application.Info.DirectoryPath

    strDBConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDatabasePath & "\DataPath.mdb;Mode=Share Deny None"

    objConn = SetConnection(strDBConn)

    objCmd = SetCommand(strCmd, objConn)

    objRec = SetRec(objConn, objCmd)

    If Not objRec Is Nothing Then

    objRec.MoveFirst()

    End If

    strDatabasePath = objRec("Path").Value

    strDatabaseNavn = objRec("DatabaseName").Value

    End Sub

    Public Sub WriteIniData()

    Dim strDBConn As String

    Dim objConn As ADODB.Connection

    Dim objCmd As ADODB.Command

    Dim objRec As ADODB.Recordset

    Dim strCmd As String = "Select * From DataPath"

    strDatabasePath = My.Application.Info.DirectoryPath

    strDBConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDatabasePath & "\DataPath.mdb;Mode=Share Deny None"

    objConn = SetConnection(strDBConn)

    objCmd = SetCommand(strCmd, objConn)

    objRec = SetRec(objConn, objCmd)

    If Not objRec Is Nothing Then

    objRec.MoveFirst()

    End If

    objRec("Path").Value = strDatabasePath

    objRec("DatabaseName").Value = strDatabaseNavn

    End Sub

     

    Public Function SetConnection(ByRef StrDBpath As String) As ADODB.Connection

    'create connection and open Database

    Try

    Dim dbcnn As New ADODB.Connection

    With dbcnn

    .Provider = "Microsoft.Jet.OLEDB.4.0"

    .Open(StrDBpath)

    End With

    Return dbcnn

    Catch ex As Exception

    MsgBox(ex.ToString)

    Return Nothing

    End Try

    End Function

     

    Public Function SetCommand(ByRef strCommand As String, ByRef oCnn As ADODB.Connection) As ADODB.Command

    'create command

    Dim oCmd As New ADODB.Command

    Try

    With oCmd

    .let_ActiveConnection(oCnn)

    .CommandType = ADODB.CommandTypeEnum.adCmdText

    .CommandText = strCommand

    .Execute()

    End With

    Return oCmd

    Catch ex As Exception

    MsgBox(ex.ToString)

    Return Nothing

    End Try

    End Function

     

    Public Function SetRec(ByRef oConn As ADODB.Connection, ByRef oCmd As ADODB.Command) As ADODB.Recordset

    'Create Recordset

    Dim oRec As New ADODB.Recordset

    Try

    With oRec

    .LockType = ADODB.LockTypeEnum.adLockOptimistic

    .let_ActiveConnection(oConn)

    .CursorLocation = ADODB.CursorLocationEnum.adUseClient

    .Open(oCmd)

    End With

    Return oRec

    Catch ex As Exception

    MsgBox(ex.ToString)

    Return Nothing

    End Try

    End Function
    • Post Points: 10

  • 03-30-2008 3:47 PM In reply to

    • yr
    • Top 500 Contributor
    • Joined on 06-01-2007
    • United States
    • Member
    • Points 345

    Re: How to get Folder path dynamic way

    Reply Contact

    Thanks for reply!

    Is it possible without interaction to databse ,bec the folder path should select automatically when form is loaded.
    • Post Points: 10

  • 03-31-2008 7:09 PM In reply to

    • lbn
    • Not Ranked
    • Joined on 03-29-2008
    • Denmark
    • New Member
    • Points 45

    Re: How to get Folder path dynamic way

    Reply Contact

    In the ReadIniData routine You will see these lines:

    strDatabasePath = objRec("Path").Value

    strDatabaseNavn = objRec("DatabaseName").Value

    the variables strDatabasePath and strDatabaseNavn are global string variables.

    All You need is to place this code in the form load event: ReadIniData

    You now have all You need, I suppose, to call or open any file etc.

    The database are very simple: a Table called DataPath, and two string fields called Path and DatabaseName.

     

    There are another way to get a INI simular file, which is a XML file. I'm not any specialist within XML but I made this in the week-end. It might be uesfull.

    First:

    You will have to create a XML document:

    Open a Notepad document and paste this into the document:

    '***********************************************************

    <?xml version="1.0" encoding="UTF-16" ?>

    - <Collection>

    -

    - <Settings Id=    "1">

    <Title>D:\VS Projekter\Pladeberegning\PladeBeregning\bin\Debug</Title>

    </Settings>

    -

    - <Settings Id=    "2">

    <Title>Pladeberegning.mdb</Title>

    </Settings>

    </Collection>

     '**************************************************

    Save the Notepad document as "AppData.xml" and place it in the output directory of Your program:

    "c:\'VB Project'\'Projectname'\bin\debug" - or whatever path it is

    Next:

    Create a new Module named modXML and paste this code into the module:

    Imports System.Xml

    Imports System.Text

    'Module modXml ********** the code above must be placed in top of the module

    Public strDatabaseNavn As String

    Public strDatabasePath As String

    Public Function ReadNode(ByVal Id As Integer) As String

    Try

    Dim doc As XmlDocument = New XmlDocument()

    doc.Load(My.Application.Info.DirectoryPath & "\AppData.xml")

    Dim nodeList As XmlNodeList = doc.SelectNodes("//Settings")Dim node As XmlNode

    node = nodeList.Item(Id)

    Return node.FirstChild.InnerText

    Catch xmlex As XmlException ' Handle the Xml Exceptions here.

    MsgBox(xmlex.Message)

    Return ""

    End Try

    End Function

    Public Sub WriteNode(ByVal Id As Integer, ByVal strVal As String)

    Try

    Dim doc As XmlDocument = New XmlDocument()

    doc.Load(My.Application.Info.DirectoryPath & "\AppData.xml")

    Dim nodeList As XmlNodeList = doc.SelectNodes("//Settings")Dim node As XmlNode

    node = nodeList.Item(Id)

    node.FirstChild.InnerText = strVal

    doc.PreserveWhitespace = True

    Dim wrtr As XmlTextWriter = New XmlTextWriter(My.Application.Info.DirectoryPath & "\AppData.xml", Encoding.Unicode)

    doc.WriteTo(wrtr)

    wrtr.Close()

    Catch xmlex As XmlException ' Handle the Xml Exceptions here.

    MsgBox(xmlex.Message)

    End Try

    End Sub

    '*********************

    Finally:

    In the form load event of Your program add this code:

    '**********************************

    strDatabasePath = ReadNode(0)

    strDatabaseNavn = ReadNode(1)

    '****************************************

    The variables will now contain the information stored in the XML file.

    You can update the XML file through tis code:

    '***********************************************

    WriteNode(0, strDatabasePath)

    WriteNode(1, strDatabaseNavn)

    '************************************

    Hope You can use thise samples!!!!
    • Post Points: 10

  • 04-01-2008 7:23 PM In reply to

    • yr
    • Top 500 Contributor
    • Joined on 06-01-2007
    • United States
    • Member
    • Points 345

    Re: How to get Folder path dynamic way

    Reply Contact

    Thanks for the reply...

    your two ways of finding the folder path is good,But is it possible to track the foldername path from user system.

    My requirement is i want to show the files data stored in a folder on the user system to a combo in an application.User will update the data in the files.I want to display the same data in the two combo boxes on the form load..

    Since the folder name and files we know..but location of the folder path needs to be tracked from user system..

    Ex: Foldertest (Foldername)

    Filename1.txt

    Filename 2.txt

    Filename1.txt contains data

    orange

    apple

    bannana

    Filename 2.txt contains data like

    yellow

    white

    red

     

    Combobox1

    orange

    apple

    bannana

     

    ComboBox2

    yellow

    white

    red

     

    Let me know if you are not clear about the requirement...................
    • Post Points: 10

  • 04-16-2008 8:43 PM In reply to

    • lbn
    • Not Ranked
    • Joined on 03-29-2008
    • Denmark
    • New Member
    • Points 45

    Re: How to get Folder path dynamic way

    Reply Contact

    I'm not shure that I understand Your problem.

    In the two samples I gave You, You can load the name of a folder into a varable, at form load, and use this to get data from a file in this folder.

    If the string contains the full path of the file, use system.io to get folder:

    FilePath= "S:\SomeFolder\SomeSubFolder\SomeFile.txt"

    txtDataDir.Text = System.IO.Path.GetDirectoryName(FilePath)

    (result: txtDataDir.Text = "S:\SomeFolder\SomeSubFolder)

    txtDatabase.Text = System.IO.Path.GetFileName(FilePath)

    (result: txtDatabase.Text = SomeFile.txt)

    Are Your problem to read the content og the .txt file? (filename 1.txt)
    • Post Points: 5
Page 1 of 1 (9 items)