Dateien durch ein Programm mit Visual Basic öffnen


Dieses TuT gibt es auch als Word Datei für alle die schon Word 2007 haben hier der Link zur Datei
Dateien/Programme öffnen VB
Die dies nicht haben Fragen bitte nach (icq steht hier 2 mal ^^)


Bin „leider“ kein Profi in Sachen VB aber es gibt so wenig TuT’s in Deutsch über die wichtigsten Befehle und Funktionen (die auch wirklich für „Anfänger“ erklärt sind).
Deswegen mach ich mein eigenes und teile es mit jedem. Trotzdem bestehe ich darauf das ich eine Benachrichtigung bekomme wenn ihr mein TuT Kopiert (es z.B. in eure Homepage kopiert) oder einen Link macht. Danke
Ich lass hier meine ICQ nummer weil ich will das ihr mich fragt. ^^ Bitte nicht zu viel (hab auch noch ein Leben). Also hier ist sie ICQ Nr. 232-200-630


Erklärung Farben:
Rot = Links oder wichtige Angaben
Grün = Befehle/Kommandos

Als erstes einmal die Voraussetzungen um dies benutzen zu können:
Ein Programm für VB z.B. Microsoft Visual Basic 6.0, dass ich benutzen werde.
Eine Hilfreiche Seite wäre diese:
http://www.microsoft.com/germany/express...fault.aspx
Das ist die Express Version sollte dort aber auch funktionieren
Ich gebe KEINE Garantie, dass diese Codes bei allen VB Programmen funktionieren.


Um ein Programm zu starten benutzen die meisten in VB den Befehl:

Shell()

Dieser funktioniert super man kann nur keine Fehlermeldungen zurück geben (um darauf zu reagieren) oder eine Datei z.B. ein Textdokument mit einem bestimmten Programm z.B. Notepad (oder auch Editor genannt) öffnen.

Deswegen benutze ich hier den Befehl:

ShellExecute()

Mit ihm kann man Fehlermeldungen wie z.B. (Datei nicht gefunden) zurückgeben
und eine Datei mit Notepad (auch mit anderen Dateien/Programmen) öffnen.

Öffnet ein Neues Projekt (wie das geht solltet ihr Wissen ^^)
Und macht einen Button (mehr brauchen wir erst einmal nicht)
Dann doppel Klickt auf den Button und macht weiter









Um diesen Befehl benutzen zu können müssen wir erst einmal die Funktion Deklarieren
1.
Die Funktion wird Deklariert indem wir vor allen Befehlen im Programm diese Zeilen rein kopieren

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Bisschen einfacher ist es mit diesem Bild
   

So jetzt geht es weiter um keine Fehler zu haben (ich habe keine Ahnung welche Codes was bringen ich weiß nur das sie das Aussehen des Fensters was geöffnet wird bestimmen)
Müsst ihr hinter die Deklaration noch diese Zeilen kopieren

Private Const SW_HIDE = 0
Private Const SW_MAXIMIZE = 3
Private Const SW_MINIMIZE = 6
Private Const SW_NORMAL = 1
Private Const SW_SHOW = 5
Private Const SW_RESTORE = 9
Private Const SW_SHOWMAXIMIZED = 3
Private Const SW_SHOWMINIMIZED = 2
Private Const SW_SHOWMINNOACTIVE = 7
Private Const SW_SHOWNA = 8
Private Const SW_SHOWNOACTIVATE = 4
Private Const SW_SHOWNORMAL = 1

Private Const ERROR_BAD_FORMAT = 11&
Private Const SE_ERR_ACCESSDENIED = 5
Private Const SE_ERR_ASSOCINCOMPLETE = 27
Private Const SE_ERR_DDEBUSY = 30
Private Const SE_ERR_DDEFAIL = 29
Private Const SE_ERR_DDETIMEOUT = 28
Private Const SE_ERR_DLLNOTFOUND = 32
Private Const SE_ERR_FNF = 2
Private Const SE_ERR_NOASSOC = 31
Private Const SE_ERR_OOM = 8
Private Const SE_ERR_PNF = 3
Private Const SE_ERR_SHARE = 26

So sollte es aussehen
   
So die Deklaration ist fertig jetzt kommen wir zum Befehl der das ganze ausführt
Wie schon gesagt heist er

ShellExecute()

Dieser wird nun zwischen

Private Sub Command1_Click()

Und

End Sub

Geschrieben und führt dann die Funktion „ShellExecute“ aus die wir gerade Deklariert haben.
Nun zum Befehl.
Die Zeilen in meinem Beispiel sind um ein Textdokument das in „C:\“ liegt d.h. also in keinem Unterordner, namens „Test.txt“ mit dem Editor auch Notepad genannt zu öffnen.
(wenn ihr kein Textdokument mit Namen „Test“ in „C:\“ habt keine Angst macht einfach weiter mit Programmieren der Befehl wird selbständig eines erstellen.)


Also die Zeilen sind

Retval = ShellExecute(Me.hwnd, "open", "C:\Windows\Notepad.exe", _
"C:\Test.txt", "c:\", SW_SHOWNORMAL)

Die müsst ihr nun dort rein kopieren und dann könnt ihr es schon ausprobieren
   


So sollte es aussehen wenn ihr es laufen lasst


   
Dann auf „Ja“ und ein neues Text Dokument Namens „Test“ wird in „C:\“ erstellt
falls dieses Dokument schon besteht wird es einfach geöffnet (keine Daten gehen verloren)



Das wars von meinem TuT zum öffnen von Dateien bitte Bewertet es usw. gibt ja eine Umfrage ^^
Bis zum nächsten TuT euer TuT maker ICQ: 232-200-630

Dieser Beitrag wurde zuletzt bearbeitet: 08.06.2008 11:08 AM von nacramell.