|
| |
Visual-Basic Einsteiger| Re: zu eigene Datei Archive erstellen! | |  | | Autor: -ipa- | | Datum: 01.02.02 17:49 |
| hallo,
hmm ok wenn das nicht geht und auch keine andere möglichkeit besteht dieses Problem zu beheben habe ich aber noch ein anderes Problemchen wenn ich es z.B. in mein eigenes Datei Archiv z.B. *.vbd Dateie packe und auf CD brenne möchte ich das es diese Dateien in ein eigenes Teporäres Verzeichnis entpackt und dann die Exe öffnet
nun ich habe das schon getestet es funktioniert auch ich kann die Dateien in ein beliebiges Verzeichnis entpacken und dann daraus über den Shell (path & Befehl die *.exe daraus starten nun müßte ich nur noch wissen wie erstelle ich einen Belibigen Ordner in einem Beliebigen Verzeichnis und lösche nur den Inhalt des Ordners nachdem mein Programm erkannt hat wenn das Setup fertig ist dieses funktioniert mit diesem Beispiel
Private Declare Function CreateProcess _
Lib "kernel32" Alias "CreateProcessA" _
(ByVal lpApplicationName As Long, ByVal _
lpCommandLine As String, ByVal _
lpProcessAttributes As Long, ByVal _
lpThreadAttributes As Long, ByVal _
bInheritHandles As Long, _
ByVal dwCreationFlags As Long, ByVal _
lpEnvironment As Long, _
ByVal lpCurrentDirectory As Long, _
lpStartupInfo As STARTUPINFO, _
lpProcessInformation As PROCESS_INFORMATION) _
As Long
Private Declare Function WaitForSingleObject _
Lib "kernel32" (ByVal hHandle As Long, _
ByVal dwMilliseconds As Long) As Long
Private Type STARTUPINFO
cb As Long
lpReserved As String
lpDesktop As String
lpTitle As String
dwX As Long
dwY As Long
dwXSize As Long
dwYSize As Long
dwXCountChars As Long
dwYCountChars As Long
dwFillAttribute As Long
dwFlags As Long
wShowWindow As Integer
cbReserved2 As Integer
lpReserved2 As Byte
hStdInput As Long
hStdOutput As Long
hStdError As Long
End Type
Private Type PROCESS_INFORMATION
hProcess As Long
hThread As Long
dwProcessId As Long
dwThreadId As Long
End Type
Public Function ShellGetHandle(ByVal sDateiname As String, lHandle As Long) As Boolean
Dim udtProcessInfo As PROCESS_INFORMATION
Dim udtStartupInfo As STARTUPINFO
Dim lSuccess As Long
udtStartupInfo.cb = Len(udtStartupInfo)
lSuccess = CreateProcess(0&, sDateiname, 0&, 0&, 1&, &H20, 0&, 0&, udtStartupInfo, udtProcessInfo)
If lSuccess = 1 Then
lHandle = udtProcessInfo.hProcess
ShellGetHandle = False
Else
ShellGetHandle = True
End If
End Function
Public Function Wait(ByVal lHandle As Long) As Boolean
If WaitForSingleObject(lHandle, 0) <> 0 Then
Wait = True
Else
Wait = False
End If
End Function
Private Sub Command1_Click()
Dim lHandle As Long
Dim bError As Boolean
bError = ShellGetHandle("Notepad.exe", lHandle)
If bError Then
MsgBox "Fehler! Programm kann nicht gestartet werden"
Else
MsgBox "Programm ist gestartet, jetzt wird gewartet"
Do While Wait(lHandle)
DoEvents 'Damit das VB Programm nicht "einfriert"
Loop
MsgBox "Programm wurde beendet"
End If
End Sub
das ist ein Beispiel mit Notepad funktioniert eigentlich ganz gut,
nun jetzt müßte ich nur noch wissen wieich einen Ordner erstelle und nacher nur die Ordner inhalte lösche also sozusagen nur die temporären Dateien
danke
-ipa- | |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
sevGraph (VB/VBA) 
Grafische Auswertungen
Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig! Weitere InfosTipp des Monats TOP Entwickler-Paket 
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1866.50 EUR...
Jetzt nur 979,00 EURWeitere Infos
|
| |
|
Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
November 2025
Sie sind aktuell nicht angemeldet.
