|
| |
Suche Visual-Basic Code| Re: ob mir hiermit nochmal jemand helfen könnte? | |  | | Autor: Martin01 | | Datum: 01.07.03 22:29 |
| 'PackF.Frm
Option Explicit
Private WithEvents c As PackC
Private Sub Form_Load()
Set c = New PackC
'--------------------------------------------------
'Zum testen einen Ordner Test mit Dateien anlegen...
'--------------------------------------------------
Dir1.Path = App.Path & "\Test"
'--------------------------------------------------
comPacken.Enabled = CBool(File1.ListCount > 0)
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set c = Nothing
End Sub
Private Sub comPacken_Click()
'CommandButton
'Caption = Einpacken
Dim i As Long
Dim u As Long
Dim sPath As String
Dim sFile As String
Dim sComment As String
sPath = Dir1.Path
If Right$(sPath, 1) <> "\" Then
sPath = sPath & "\"
End If
With File1
u = .ListCount - 1
For i = 0 To u
sFile = .List(i)
sComment = "Comment" & Replace(CStr(Timer), ",", "-") & "tentmmoC"
If c.Add(sFile, sPath, sComment) = eReturn.Cancel Then
Exit For
End If
Next
End With
MsgBox "Fertig"
End Sub
Private Sub comAktuelleDateienLöschen_Click()
'CommandButton
'Caption = Aktuelle Dateien löschen !!!!!!
Stop
'Das kann dieses Programm nicht!
End Sub
Private Sub comTestAuspacken_Click()
'CommandButton
'Caption = Auspacken
c.FromAll
End Sub
Private Sub Drive1_Change()
'DriveListBox
Dir1.Path = Drive1.Drive
Me.Caption = Drive1.Drive
End Sub
Private Sub Dir1_Change()
'DirListbox
File1.Path = Dir1.Path
comPacken.Enabled = CBool(File1.ListCount > 0)
End Sub
'Private Sub File1_Click()
'FileListBox
'End Sub
Private Sub c_DoAdd(DrivePath As String, FileName As String, Comment01 As String, Comment02 As String, Comment03 As String, ByVal Lenght As Long, Attri As VbFileAttribute, ToDo As eToDo)
'Ereignis von PackC
ToDo = MsgBox(DrivePath & vbNewLine & _
vbNewLine & _
FileName & vbNewLine & _
vbNewLine & _
Comment01 & vbNewLine & _
vbNewLine & _
Comment02 & vbNewLine & _
vbNewLine & _
Comment03 & vbNewLine & _
vbNewLine & _
CStr(Lenght) & vbNewLine & _
CStr(Attri) & " ist " & Attri2Text(Attri), _
vbMsgBoxSetForeground Or vbYesNoCancel, _
"Hinzufügen ???")
End Sub
Private Sub c_DoFrom(DrivePath As String, FileName As String, Comment01 As String, Comment02 As String, Comment03 As String, ByVal Lenght As Long, Attri As VbFileAttribute, ToDo As eToDo)
'Ereignis von PackC
ToDo = MsgBox(DrivePath & vbNewLine & _
vbNewLine & _
FileName & vbNewLine & _
vbNewLine & _
Comment01 & vbNewLine & _
vbNewLine & _
Comment02 & vbNewLine & _
vbNewLine & _
Comment03 & vbNewLine & _
vbNewLine & _
CStr(Lenght) & vbNewLine & _
CStr(Attri) & " ist " & Attri2Text(Attri), _
vbMsgBoxSetForeground Or vbYesNoCancel, _
"Auspacken ???")
End Sub
Private Function Attri2Text( _
ByVal Attri As VbFileAttribute) As String
Dim Text As String
Text = "----"
If Attri And vbArchive Then
Mid$(Text, 1, 1) = "A"
End If
If Attri And vbHidden Then
Mid$(Text, 2, 1) = "H"
End If
If Attri And vbReadOnly Then
Mid$(Text, 3, 1) = "R"
End If
If Attri And vbSystem Then
Mid$(Text, 4, 1) = "S"
End If
Attri2Text = Text
End Function | |
 | 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  Oktober 2025
Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 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
|
|
Sie sind aktuell nicht angemeldet.
