Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Laufzeitfehler beim Feststellen Win/Systemverzeichnis
Autor: Heiko
Datum: 19.01.02 14:12
Hallo! ich bekomme beim Durchlaufen des unten angegebenen Codes immer eine Fehlermeldung auf einem Win98 Rechner "Laufzeitfehler 5, Ungültiger Prozeduraufruf oder ungültiges Argument" auf meinem Rechner (Win200) läuft es einwandfrei. Hat da jemand Rat? muss eventuell eine zusätzliche dll auf dem zielrechner installiert werden? Ich weiß im Moment einfach nicht weiter da das programm auf 3 Rechnern einwandfrei läuft jedoch auf dem eigenlichen Programmrechner dann nicht. Danke für alle Antworten Heiko .... .... .... MsgBox "Es wird zuerst das Packprogramm gesucht!" & vbCrLf & _ "Dies kann je nach Dateienanzahl einige" & vbCrLf & _ "Sekunden dauern - Bitte bestätigen Sie den" & vbCrLf & _ "'OK-Button' und warten Sie solange!", vbInformation, "Hinweis" cmbNew.Enabled = False cmbBack.Enabled = False GetWinDir 'Windows Verzeichnis suchen GetSystemPath 'Systemverzeichnis suchen search 'aufruf der Function zum suchen .... .... .... Public Function GetWinDir() As String ' Speicher reservieren Dim Buf() As Byte ' Enthält das Windows-Verzeichnis vor der Umwandlung Dim sBuf As String ' Enthält das Windows-Verzeichnis nach der Umwandlung Dim cSize As Long ' Enthält die Länge des Verzechnisses ' Wurde bereits ein Verzeichnis festgestellt? If (WinBaseDir = vbNullString) Then ' nein, Datenfelder initialisieren ReDim Buf(254) ' Datenfeld neu ausrichten cSize = 255 ' maximale Länge setzen ' API aufrufen GetWindowsDirectoryW Buf(0), cSize ' Wide-Char-DLL ' Ergebnis kopieren sBuf = Left(Buf, InStr(1, Buf, vbNullChar) - 1) ' Daten aus dem Byte-Feld kopieren ' Enthält das Ergebnis bereits ein Backslash? If (Asc(Right(sBuf, 1)) <> 92) Then ' Nein, also einen anhängen sBuf = sBuf & "" ' Backslash anhängen End If ' Ergebnis speichern WinBaseDir = sBuf End If ' Rückgabewert setzen GetWinDir = WinBaseDir ' Rückgabe setzen End Function '************************************************ Public Function GetSystemPath() As String Dim Buffer As String Dim rc As Long ' **** Set Default Dir to Windows System Subdirectory Buffer = Space$(256) rc = GetSystemDirectory(Buffer, Len(Buffer)) GetSystemPath = LCase$(Mid$(Buffer, 1, InStr(Buffer, Chr(0)) - 1)) End Function

Laufzeitfehler beim Feststellen Win/Systemverzeichnis	59	Heiko	19.01.02 14:12
Re: Laufzeitfehler beim Feststellen Win/Systemverzeichnis	253	Dieter	19.01.02 14:18
Re: Laufzeitfehler beim Feststellen Win/Systemverzeichnis	36	Heiko	19.01.02 14:39
Re: Laufzeitfehler beim Feststellen Win/Systemverzeichnis	36	Heiko	19.01.02 15:37
Re: Laufzeitfehler beim Feststellen Win/Systemverzeichnis	223	Dieter	19.01.02 21:35

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

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen