Huidige directory

[bonnowagt]

Waarschijnlijk een hele simpele vraag:

Ik heb een programma waarvan ik de text opsla in agenda.txt

CODE]Private myCoolFile As String = "C:\ECS2\agenda.txt"[/CODE]

Opzich werkt dir prima, maar als bijvoorbeeld het programma in een andere dir zou staan bijvoorbeeld in C:\agenda, dan nog heb je C:\ECS2\agenda.txt nodig

Nu zou ik graag de code willen dat, indien ik agenda.txt verplaats naar een andere directory dat ik dit ook gewoon kan oproepen. Dus ik denk iets met current path/dir

 

[edmoor]

Private myCoolFile As String = ".\agenda.txt"

Nog beter is om het juiste bestand vanuit je programma te kunnen kiezen.

 

[JoZ1]

Dim File As String = Application.StartupPath & "\agenda.txt"

 

[bonnowagt]

vervolg

Hallo,

Bedankt voor je reactie. Ik save met onderstaande code. Hoe kan ik dit het beste aanpassenals ik het bestand vanuit mijn programma te kunnen kiezen.

  Dim myWriter As New IO.StreamWriter(myCoolFile)
        For Each myItem As ListViewItem In ListView1.Items
            myWriter.WriteLine(myItem.Text & "#" & myItem.SubItems(1).Text & "#" & myItem.SubItems(2).Text _
                     & "#" & myItem.SubItems(3).Text)
        Next

 

[edmoor]

Ik weet niet welke omgeving je precies gebruikt maar ik gebruik VB in Visual Studio 2010.
Hier een stukje dat ik gebruik om een bestand voor openen op te zoeken.

Imports System
Imports System.IO

Public Class Form1
    Public fileReader As System.IO.StreamReader

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim TextFile As String

        OpenFD.InitialDirectory = "C:\"
        OpenFD.Filter = "Text file|*.txt"
        OpenFD.FileName = "Text.txt"
        TextBox1.ClearUndo()
        If Not OpenFD.ShowDialog() Then
            TextBox1.ClearUndo()
        End If
        TextFile = OpenFD.FileName
        TextBox1.Text = TextFile
        TextBox2.Text = vbNullChar
        ListBox1.Items.Clear()
        Call ReadFile()
    End Sub

Misschien dat je er wat aan hebt.

 

[JoZ1]

Hallo,

Bedankt voor je reactie. Ik save met onderstaande code. Hoe kan ik dit het beste aanpassenals ik het bestand vanuit mijn programma te kunnen kiezen.

  Dim myWriter As New IO.StreamWriter(myCoolFile)
        For Each myItem As ListViewItem In ListView1.Items
            myWriter.WriteLine(myItem.Text & "#" & myItem.SubItems(1).Text & "#" & myItem.SubItems(2).Text _
                     & "#" & myItem.SubItems(3).Text)
        Next

Zo kies je een bestand:

[CPP]Dim Open As New OpenFileDialog
Open.Filter = "Tekst Bestanden (*.txt)|*.txt"
If Open.ShowDialog = DialogResult.OK Then

Dim myWriter As New IO.StreamWriter(myCoolFile)
For Each myItem As ListViewItem In ListView1.Items
myWriter.WriteLine(myItem.Text & "#" & myItem.SubItems(1).Text & "#" & myItem.SubItems(2).Text _
& "#" & myItem.SubItems(3).Text)
Next

End If[/CPP]

 

[CaptainBri]

Dim File As String = Application.StartupPath & "\agenda.txt"

Beter niet de variabele File noemen, omdat deze conflicteert met System.IO.File wanneer deze geimporteerd is. Ik kan de class File niet meer (direct, wel indirect) benaderen wanneer ik een variabele 'File' genoemd heb.

 

[Schipperjte]

Zelf hou ik alle bestanden in 1 map, als je de map verplaatst dan neem je het text
bestand mee.


Hiermee roep ik hem op

(My.Application.Info.DirectoryPath & "\agenda.txt")

Misschien niet helemaal wat je vraagt maar ik had het zelfde probleem.

Op een vaste plaats ging het goed tot ze de map gingen verplaatsen , is nu opgelost
want bestand gaat mee.

 

[JoZ1]

@CaptainBri: Het is inderdaad beter om dit te mijden, nu je het zegt.