Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

wer hat Lust, sich mal den Code anzusehen.
Autor: R.H
Datum: 08.02.03 17:02
Hallo zusammen, wer hat Lust, sich mal den Code anzusehen. Es soll eine kleine Softwareverteilung entstehen, nur leider bekomme ich es nicht hin das, wenn der Rechner einen Ping zurück gibt, aber das Basis verzeichnis nicht vorhanden ist, soll er nichts tun und den nächsten Rechner nehmen. 1.) Ping ist True 2.) Verzeichnis ist vorhanden 3.) Dateidatum vergleichen 4.) wenn ungleich dann neue Datei kopieren 5.) wenn Datei gleiches Datum hat nächster PC Gruss Reinhard Public Sub Zeit() Dim nTime As Single Dim IP Dim Enscheid If Ping(Ergebnis) And oFSO.FolderExists("\\" & Ergebnis & "\c$\myOrdner\") = True Then oRs!Erreichbar = "X": A = True Datum = FileDateTime(sFile) PruefeDat = FileDateTime(Text1.Text) Me.Refresh If bFileExists = True And Format(Datum, "tt.mm.yyyy") = Format(PruefeDat, "tt.mm.yyyy") Then B = True oRs!Versiondatum = Format(Datum, "dd.mm.yyyy") oRs!NotFile = "File OK" Me.Refresh ' nur bei neuer Datei Call KopierenDerDatei Else oRs!NotFile = "Not File" Enscheid = MsgBox("möchten Sie jetzt kopieren", vbYesNo) If Enscheid = 6 Then ' 4 No Call KopierenDerDatei oRs!Versiondatum = Format(PruefeDat, "dd.mm.yyyy") oRs!CopyJa = "Ja" Else oRs!CopyJa = "Nein" oRs!Versiondatum = Format(Datum, "dd.mm.yyyy") End If End If Me.Refresh Else If A = True Then oRs!Erreichbar = "PC nicht im Netz" Me.Refresh ElseIf A = True And B = True Then oRs!Erreichbar = "Ping OK kein Verzeichnis" Me.Refresh End If End If Me.Refresh End Sub

wer hat Lust, sich mal den Code anzusehen.	846	R.H	08.02.03 17:02
Re: wer hat Lust, sich mal den Code anzusehen.	429	R.H	08.02.03 22:04

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