VB Problem HILFE

tbjumper · 11/08/2010, 15:58

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.

Kuchenfreak™ · 11/08/2010, 16:07

hast doch schon in dem anderem Thema gepostet wo das auch mit rein passt.
Hab da geantwortet sollte dir eigentlich weiterhelfen.

tbjumper · 11/08/2010, 16:10

Ich versteh das aber nicht. Wäre echt nett wenn du den ganzen Code posten würdest.
Ich bin noch neu im Geschäft ^.^

Kuchenfreak™ · 11/08/2010, 16:47

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!

OPO-Info · 11/08/2010, 17:16

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.

Grüße

.BritainAndy · 11/08/2010, 17:51

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

~~Algaten™~~ · 11/08/2010, 18:06

Hi falls er alle Tipps nicht versteht hier mal ein BeispielProjekt im Anhang

Hoffentlich sollte das dann Helfen

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

.BritainAndy · 11/08/2010, 18:48

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

tbjumper · 11/08/2010, 19:19

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

~~Algaten™~~ · 11/08/2010, 19:31

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

tbjumper · 11/08/2010, 19:39

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?

~~Algaten™~~ · 11/08/2010, 19:42

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

tbjumper · 11/08/2010, 19:47

Ich werde es mal testen ^.^

Errors ohne Ende xD

~~Algaten™~~ · 11/08/2010, 19:53

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

tbjumper · 11/08/2010, 19:59

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