SaveFileDialog Automatisches OK
Hallo Comi.
Wie kann man bei einem SaveFileDialog ein automatisches ok machen?
Ich Programmiere grade ein Installer und wollte eine datei speichern!
Wie geht das?
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Edit by der_Kurt:
Falsches Unterforum. Bitte in Zukunft darauf achten!
* Topic verschoben *
Hallo Comi.
Wie kann man bei einem SaveFileDialog ein automatisches ok machen?
Ich Programmiere grade ein Installer und wollte eine datei speichern!
Wie geht das?
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- ProgressBar1.Value += 1
- If ProgressBar1.Value = 50 Then
- If My.Computer.FileSystem.DirectoryExists("C:\Program Files\BluePoint Applications") = False Then
- My.Computer.FileSystem.CreateDirectory("C:\Program Files\BluePoint Applications")
- My.Computer.FileSystem.CreateDirectory("C:\Program Files\BluePoint Applications\data")
- Else
- Timer1.Stop()
- MessageBox.Show("Dieses Programm wurde schon installert!", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
- End If
- End If
- If ProgressBar1.Value = 100 Then
- SaveFileDialog1.FileName = "C:\Program Files\BluePoint Applications\Data"
- End If
- End Sub
- Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
- Try
- Dim Write As New System.IO.StreamWriter(SaveFileDialog1.FileName)
- Write.Write("Computername: " & My.Computer.Name & vbCrLf & "Programmname: BluePoint Auftragsbearbeitung" & vbCrLf & "Hersteller: BluePoint Applications")
- Write.Close()
- Catch ex As Exception
- End Try
- End Sub
Edit by der_Kurt:
Falsches Unterforum. Bitte in Zukunft darauf achten!
* Topic verschoben *
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „der_Kurt“ ()