My.Settings.DateiDatenbank = Me.txtDatenbankdatei.Text

Me.txtDatenbankdatei.Text = My.Settings.DateiDatenbank.ToString

---
Verwendete Programmversionen:
Windows 7 64 bit sowie Windows 10 Prof.
Visual Studio 13 Professional
Microsoft Prof. 2010 (= Version 14)

---
Verwendete Programmversionen:
Windows 7 64 bit sowie Windows 10 Prof.
Visual Studio 13 Professional
Microsoft Prof. 2010 (= Version 14)

---
Verwendete Programmversionen:
Windows 7 64 bit sowie Windows 10 Prof.
Visual Studio 13 Professional
Microsoft Prof. 2010 (= Version 14)

lbo.DataSource = 
    New List(Of String)(My.Resources.TextFile1.Split({vbNewLine}, 
                                     StringSplitOptions.RemoveEmptyEntries))

---
Verwendete Programmversionen:
Windows 7 64 bit sowie Windows 10 Prof.
Visual Studio 13 Professional
Microsoft Prof. 2010 (= Version 14)

Zitat:

Ist es möglich: Ich habe eine Mail und darin im Anhang eine Datei - ob .doc, .ppt oder was auch immer - kann ich diese Datei per Drag & Drop in meine TextBox ziehen und diese in meine .exe einbetten, OHNE dass sie irgendwo gespeichert sein muss und zwar so, dass sie beim Neustrart der exe wieder da ist?

'File verschieben
My.Computer.FileSystem.MoveFile(Quelle, Ziel)
 
'File kopieren
My.Computer.FileSystem.CopyFile(Quelle, Ziel)

---
Verwendete Programmversionen:
Windows 7 64 bit sowie Windows 10 Prof.
Visual Studio 13 Professional
Microsoft Prof. 2010 (= Version 14)

 Private Sub dgvFiles_DragDrop(sender As Object, e As _
   System.Windows.Forms.DragEventArgs) Handles dgvFiles.DragDrop
 
        If e.Data.GetDataPresent("FileGroupDescriptor") Then
            Dim ol As New Microsoft.Office.Interop.Outlook.Application
            Dim mi As Microsoft.Office.Interop.Outlook.MailItem
            Dim itm As Object
 
            If ol Is Nothing Then
                MessageBox.Show("Kein ol")
                Exit Sub
            Else
                For Each itm In ol.ActiveExplorer.Selection
                    Try
                        mi = itm
                        Dim SimpleFileName As String = mi.Subject & ".msg"
                        Dim SendFrom As String = mi.Sender.Name
                        Dim ReceivedTime As Date = mi.ReceivedTime
                        SimpleFileName = FileNameConvert(SendFrom) & "__" & _
                          FileNameConvert(SimpleFileName)
                        Dim strFile As String = System.IO.Path.Combine( _
                        Environment.GetEnvironmentVariable("temp"), _
                        SimpleFileName)
                        mi.SaveAs(strFile)
                        System.IO.File.SetLastWriteTime(strFile, ReceivedTime)
                    Catch ex As Exception
 
                    End Try
 
                Next
            End If
            Exit Sub
        End If
 
    End Sub

EALA FREYA FRESENA

Beitrag wurde zuletzt am 26.09.18 um 14:03:52 editiert.

---
Verwendete Programmversionen:
Windows 7 64 bit sowie Windows 10 Prof.
Visual Studio 13 Professional
Microsoft Prof. 2010 (= Version 14)

Zitat:

Also, was ich als Ziel habe ist mein ganzes Personal in einer EXE zu erfassen mit allen Dokumenten, die zu den jeweiligen Personalien gehören und zwar so, dass ich die eine Datei .exe jederzeit auf einen Stick packen und mitnehmen kann und überall die in in den TextBoxen gespeicherten Dokumente öffnen kann. Wenn ich die Dokumente auf irgend einem Ordner habe und bloß verlinke, muss ich neben der exe auch immer den ganzen Ordner mitnehmen. Die Dokumente könen eine pdf, eine ppt ein Word-Dokument, ein Bild desjenigen .... sein.

---
Verwendete Programmversionen:
Windows 7 64 bit sowie Windows 10 Prof.
Visual Studio 13 Professional
Microsoft Prof. 2010 (= Version 14)

'-----------------------------------------
'Elemente: 
'Formular "Form1"
'darauf ein Button "Button1" und
'eine Listbox "Listbox1"
'-----------------------------------------
 
 
Imports System.IO
 
Public Class Form1
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        'Liest alle Dateien aus einem Ordner aus
        'inkl. Unterverzeichnisse
        'Ausgabe in Listbox1
 
        'Ordner festlegen und Dateien in Array einlesen
        Dim strOrdner As String = "C:\TEST"
 
        'Prüfen, ob der Ordner existiert
        If Directory.Exists(strOrdner) = False Then
            MessageBox.Show("Der Ordner [" & strOrdner & "] existiert nicht.", _
              "Ordner nicht gefunden", _
                            MessageBoxButtons.OK, _
                            MessageBoxIcon.Error)
            Exit Sub
        End If
 
        'Array definieren und alle Dateien einlesen
        Dim arrSuche As String() = Directory.GetFiles(strOrdner, "*.*", _
          SearchOption.AllDirectories)
 
        'Listbox 1 zunächst leeren
        ListBox1.Items.Clear()
 
        'Listbox füllen
        For Each strDatei As String In arrSuche
            ListBox1.Items.Add(strDatei.ToString())
        Next
 
    End Sub
End Class

---
Verwendete Programmversionen:
Windows 7 64 bit sowie Windows 10 Prof.
Visual Studio 13 Professional
Microsoft Prof. 2010 (= Version 14)

Beitrag wurde zuletzt am 27.09.18 um 15:20:47 editiert.