VB Problem HILFE

Page 1 of 2 1 2
11/08/2010 15:58 tbjumper#1
Ich hab eine Frage...
Unzwar:
Ich möchte das er guckt ob die datei dem pfad entspricht z.B
C:\Programme\Ordner
Und wenn nicht , soll dort ein Textfeld kommen wo ich den pfad eingeben soll.
Z.b D:\Programme\Ordner

Wäre echt nett.
11/08/2010 16:07 Kuchenfreak™#2
hast doch schon in dem anderem Thema gepostet wo das auch mit rein passt.
Hab da geantwortet sollte dir eigentlich weiterhelfen.
11/08/2010 16:10 tbjumper#3
Ich versteh das aber nicht. Wäre echt nett wenn du den ganzen Code posten würdest.
Ich bin noch neu im Geschäft ^.^
11/08/2010 16:47 Kuchenfreak™#4
Naja daraus lernst du aber nichts^^
Der eine Teil vom Code steht ja da schon im Thema mehrfach dann google mal nach dem was ich geschrieben habe. Da findest du genug!
11/08/2010 17:16 OPO-Info#5
Prüfen ob die Datei im angegebenen Pfad vorhanden ist.

Code:
My.Computer.FileSystem.FileExists("Pfad")
Wenn die Datei dort nicht existiert, dann lässt du idealerweise einen OpenFileDialog erscheinen, sodass der Benutzer manuell auswählen kann.

[Only registered and activated users can see links. Click Here To Register...]

Grüße
11/08/2010 17:51 .BritainAndy#6
PHP Code:
  If My.Computer.FileSystem.FileExists("C:\Test\Passwort.txt") Then  //wen auf meinem computer die datei passwort.txt in c:\test\  besteht,,
            MsgBox("existiert") //soll eine messagebox mit 'existiert' kommen, bzw deine anweisung
        Else  // sonst (also, wenn die datei nicht existierz
       MsgBox("existiert nicht")  //soll eine messagebox mit 'existiert nicht' kommen, bzw deine anweisung
           
        End If 
11/08/2010 18:06 Algaten™#7
Hi falls er alle Tipps nicht versteht hier mal ein BeispielProjekt im Anhang :D

Hoffentlich sollte das dann Helfen :D für alle die es nicht Downloaden können hier der Code:

PHP Code:
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If My.Computer.FileSystem.FileExists(TextBox1.Text) = False Then 'False also wenn sie Nicht Existiert True zum Prüfen ob sie Existiert!
            MsgBox("Die Datei in dem Pfad: " + TextBox1.Text + " konnte nicht Gefunden werden! Bitte Überprüfen sie den Pfad")
        Else
            MsgBox("Die Datei in dem Pfad: " + TextBox1.Text + " konnte gefunden werden!")
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        OpenFileDialog1.ShowDialog()
        Application.DoEvents() 'Damit das darunter nicht gemacht wird un alles daneben geht :D
        TextBox2.Text = OpenFileDialog1.FileName
        Button2.Enabled = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If My.Computer.FileSystem.FileExists(TextBox2.Text) = False Then 'False also wenn sie Nicht Existiert True zum Prüfen ob sie Existiert!
            MsgBox("Die Datei in dem Pfad: " + TextBox2.Text + " konnte nicht Gefunden werden! Bitte laden sie den Pfad neu!")
        Else
            MsgBox("Die Datei in dem Pfad: " + TextBox2.Text + " konnte gefunden werden!")
        End If
        Button2.Enabled = False
    End Sub

End Class 
11/08/2010 18:48 .BritainAndy#8
Sorry, hab deine frage nicht zuende gelesen da ich dachte da swäre die slebe wie im anderen threat.

statt msgbox("existiert nicht") dann einfach openfiledialoge wählen
11/08/2010 19:19 tbjumper#9
Wenn ich das mit openfiledialoge mache , dann soll er die Datei auch öffnen. Also so:
PHP Code:
   If My.Computer.FileSystem.FileExists("C:\Test\Passwort.txt") Then
            MsgBox("Datei gefunden!")
            // Wie öffne ich sie jetzt? 
        Else  
       MsgBox("Dateipfad nicht gefunden. Bitte wähle die Datei aus!") 
       // Private Sub cmdOpenFileDialog_Click( ... ) Handles ... 
   Dim ofd As New OpenFileDialog 
   ofd.InitialDirectory = "C:\Temp" 
   ofd.Filter = "Tabellen (*.xls)|*.xls| " _ 
      & "Texte (*.txt; *doc)|*.txt;*.doc| " _ 
      & "Alle Dateien (*.*)|*.*" 
   ofd.Title = "Wählen Sie eine Datei zum Öffnen aus" 
   If ofd.ShowDialog() = _ 
         Windows.Forms.DialogResult.OK Then 
      MsgBox("Es wird geöffnet: " & ofd.FileName) 
   Else 
      MsgBox("Abbruch") 
   End If 
End Sub // Zum Öffnen?!
           
        End If 
11/08/2010 19:31 Algaten™#10
so :

Code:
   If My.Computer.FileSystem.FileExists("C:\Test\Passwort.txt") Then
            MsgBox("Datei gefunden!")
            // Wie öffne ich sie jetzt? 
process.start ("C:\Test\Passwort.txt")
        Else
EDIT:

Habe meine Quellcode von Obem Dem angepasst dann sieht der so aus

Code:
Public Class Form1
    Dim Starten As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If My.Computer.FileSystem.FileExists(TextBox1.Text) = False Then 'False also wenn sie Nicht Existiert True zum Prüfen ob sie Existiert!
            MsgBox("Die Datei in dem Pfad: " + TextBox1.Text + " konnte nicht Gefunden werden! Bitte Überprüfen sie den Pfad")
        Else
            MsgBox("Die Datei in dem Pfad: " + TextBox1.Text + " konnte gefunden werden!")
            Button4.Enabled = True
            Starten = TextBox1.Text
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        OpenFileDialog1.ShowDialog()
        Application.DoEvents() 'Damit das darunter nicht gemacht wird un alles daneben geht :D
        TextBox2.Text = OpenFileDialog1.FileName
        Button2.Enabled = True
        Button4.Enabled = False
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If My.Computer.FileSystem.FileExists(TextBox2.Text) = False Then 'False also wenn sie Nicht Existiert True zum Prüfen ob sie Existiert!
            MsgBox("Die Datei in dem Pfad: " + TextBox2.Text + " konnte nicht Gefunden werden! Bitte laden sie den Pfad neu!")
        Else
            MsgBox("Die Datei in dem Pfad: " + TextBox2.Text + " konnte gefunden werden!")
            Starten = TextBox2.Text
        End If
        Button2.Enabled = False
        Button4.Enabled = True
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Process.Start(Starten)
        Button4.Enabled = False
    End Sub
End Class
Wieder als Download im Anhang

Ps. Danke durch dir bin ich an Ne Iide gekommen :D
11/08/2010 19:39 tbjumper#11
PHP Code:
   If My.Computer.FileSystem.FileExists("C:\Test\Passwort.txt") Then
            MsgBox("Datei gefunden!")
            process.start ("C:\Test\Passwort.txt")
        Else  
       MsgBox("Dateipfad nicht gefunden. Bitte wähle die Datei aus!") 
       // Private Sub cmdOpenFileDialog_Click( ... ) Handles ... 
   Dim ofd As New OpenFileDialog 
   ofd.InitialDirectory = "C:\Temp" 
   ofd.Filter = "Tabellen (*.xls)|*.xls| " _ 
      & "Texte (*.txt; *doc)|*.txt;*.doc| " _ 
      & "Alle Dateien (*.*)|*.*" 
   ofd.Title = "Wählen Sie eine Datei zum Öffnen aus" 
   If ofd.ShowDialog() = _ 
         Windows.Forms.DialogResult.OK Then 
      MsgBox("Es wird geöffnet: " & ofd.FileName) 
   Else 
      MsgBox("Abbruch") 
   End If 
End Sub
           
        End If 
das untere ist also dann richtig?
11/08/2010 19:42 Algaten™#12
Das ?

Code:
        Else  
       MsgBox("Dateipfad nicht gefunden. Bitte wähle die Datei aus!") 
       // Private Sub cmdOpenFileDialog_Click( ... ) Handles ... 
   Dim ofd As New OpenFileDialog 
   ofd.InitialDirectory = "C:\Temp" 
   ofd.Filter = "Tabellen (*.xls)|*.xls| " _ 
      & "Texte (*.txt; *doc)|*.txt;*.doc| " _ 
      & "Alle Dateien (*.*)|*.*" 
   ofd.Title = "Wählen Sie eine Datei zum Öffnen aus" 
   If ofd.ShowDialog() = _ 
         Windows.Forms.DialogResult.OK Then 
      MsgBox("Es wird geöffnet: " & ofd.FileName) 
   Else 
      MsgBox("Abbruch") 
   End If 
End Sub
           
        End If
Kp noch nciht geestet habe wie gesagt nur meinen Getestet aber das mit dem Process start das ist richtig
11/08/2010 19:47 tbjumper#13
Ich werde es mal testen ^.^

Errors ohne Ende xD
11/08/2010 19:53 Algaten™#14
Gut
Mach das du kannst dir noch etwas leichter machen kann man alles in den einstellungen machen indem du das aus dem code nimmst:

Quote:
Else
MsgBox("Dateipfad nicht gefunden. Bitte wähle die Datei aus!")
// Private Sub cmdOpenFileDialog_Click( ... ) Handles ...
Dim ofd As New OpenFileDialog
ofd.InitialDirectory = "C:\Temp"
ofd.Filter = "Tabellen (*.xls)|*.xls| " _
& "Texte (*.txt; *doc)|*.txt;*.doc| " _
& "Alle Dateien (*.*)|*.*"
ofd.Title = "Wählen Sie eine Datei zum Öffnen aus"
If ofd.ShowDialog() = _
Windows.Forms.DialogResult.OK Then
MsgBox("Es wird geöffnet: " & ofd.FileName)
Else
MsgBox("Abbruch")
End If
End Sub

End If
Und das so einstellt unter den eigenschaften vom openfiledialog:



Title= "Wählen Sie eine Datei zum Öffnen aus"
Filter= "Tabellen (*.xls)|*.xls|Texte (*.txt; *doc)|Texte (*.txt; *doc)|Alle Dateien (*.*)|*.*"

schon hat man sich viel code erleichtert

EDIT:

Errors?

Downloade mal mein Projekt und scuh dir raus was du brauchst oder sag mir was du genau willst und ich versuch mich dran
11/08/2010 19:59 tbjumper#15
Hast du ICQ oder Skype das wir es darüber klären können?

PS:
Sobald ich das so mache :
Code:
Public Class Form1

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

        MsgBox("Dateipfad nicht gefunden. Bitte wähle die Datei aus!")
// Private Sub cmdOpenFileDialog_Click( ... ) Handles ... 
        Dim ofd As New OpenFileDialog
        ofd.InitialDirectory = "C:\Temp"
        ofd.Filter = "Tabellen (*.xls)|*.xls| " _
        & "Texte (*.txt; *doc)|*.txt;*.doc| " _
        & "Alle Dateien (*.*)|*.*"
        ofd.Title = "Wählen Sie eine Datei zum Öffnen aus"
        If ofd.ShowDialog() = _
        Windows.Forms.DialogResult.OK Then
            MsgBox("Es wird geöffnet: " & ofd.FileName)
        Else
            MsgBox("Abbruch")
        End If
    End Sub
End Class
Kommt wieder Syntax error
Page 1 of 2 1 2