2double2

Weisst wirklich keiner Bescheid??

hab schulische Ausbildung, also es geht ums Praktikum... Für die Zeit nach der Prüfung haben wir nichts exra vereinbart. Der Praktikumsvertrag wurde vor der Prüfungen unterschrieben und soll bis 9.07 gelten...

Hallo! Vor einer Woche hab ich endlich meine Ausbildung geschafft Nun hab ich erfahren, dass der Ausbildungsvertrag mit der Erteilung der Ergebnisse zu Ende ist. Ich muss aber noch fast 3 Wochen Praktikum machen, bis die Zeugnisse ausgeteilt werden. :mod: Ist der Praktikumsvertrag jetzt auch nichtig ? Weil eigentlich wurde er zwischen mir, Ausbildungsstätte und dem Betrieb abgeschlossen?:confused: Danke für ihre Antwort

zur Optik: ich würde noch Meilensteine einbauen und am Ende bei der Aufmerksamkeit bedanken... Vielleicht könnte es nicht schaden wenn du am Ende Soll-IST Vergleich machst

Hallo)) Ich sags noch mal.... Batch mache ich nicht mehr. Das ist schon eine .VBS Datei, die diesen Fehler ausgibt ..

Microsoft Visual Basic Studio 2008 Express Edition. Als .VBS auszuführen geht nicht, da meckert er wegen der letzen Zeile, hier: Batch mache ich nicht mehr... ich hab doch die Lösung mit VBScript genommen.

Hab das ganze Programm jetzt im Visual Studio kompiliert, die Funktionen geben keine werte zurück, also NULL wird übergeben. Ich bin am Ende..könnte mir jemand sagen wieso die Datumswerte nicht übergeben werden? :confused: Module Modul Dim f Dim f1 Dim fs Dim fs1 Dim ShellWSH Dim a Dim b Function FileLastAccessed(ByVal Fname) FileLastAccessed = "C:\Dokumente und Einstellungen\%Username%\NTUSER.dat" fs = CreateObject("Scripting.FileSystemObject") If fs.FileExists(Fname) = True Then f = fs.GetFile(Fname) FileLastAccessed = f.DateLastAccessed End If End Function 'Return the date/time a file was last modified Function FileLastModified(ByVal Fname) FileLastModified = "C:\Dokumente und Einstellungen\%Username%\Liste.txt" fs1 = CreateObject("Scripting.FileSystemObject") If fs1.FileExists(Fname) = True Then f1 = fs1.GetFile(Fname) FileLastModified = f1.DateLastModified End If End Function Sub Main() 'Return the date a file was last accessed If FileLastAccessed(a) < FileLastModified( = False Then MsgBox(a) MsgBox("Sie haben neue Nachrichten!!!") ShellWSH = CreateObject("WScript.Shell") ShellWSH.Run("""C:\Dokumente und Einstellungen\%Username%\Liste.txt""", 1, True) End If 'Clean up f = Nothing f1 = Nothing fs = Nothing fs1 = Nothing End Sub End Module[/code]

Wie ich früher geschrieben hab : Danke für deine Tipps, es funkt, jetzt muss ich nur noch die Vergleichsanweisung anpassen... da öffnet er die Datei ohne die Datum zu vergleichen.. Hier ist mein Quellcode, falls sich jemand für den Lösungsweg interissiert: 'Return the date a file was last accessed function FileLastAccessed(Fname) FileLastAccessed = "C:\Dokumente und Einstellungen\Administrator\NTUSER.dat" Set fs = CreateObject("Scripting.FileSystemObject") if fs.FileExists(Fname) = True then Set f = fs.GetFile(Fname) FileLastAccessed = f.DateLastAccessed end if end function 'Return the date/time a file was last modified function FileLastModified(Fname) FileLastModified = "C:\Dokumente und Einstellungen\Administrator\Liste.txt" Set fs1 = CreateObject("Scripting.FileSystemObject") if fs1.FileExists(Fname) = True then Set f1 = fs.GetFile(Fname) FileLastModified = f.DateLastModified end if 'Set f1 = Nothing 'Set fs1 = Nothing end function if f > f1 then msgbox ("Sie haben neue ungelesene Nachrichten!") Set ShellWSH = CreateObject("WScript.Shell") ShellWSH.Run "C:\Dokumente und Einstellungen\Administrator\Liste.txt", 1, True end if

Danke, bin schon dabei ! Kannst du vielleicht einen Tip geben, wie man am besten die datei öffnet?

dat ganze soll auf einem terminalserver laufen, deshalb würde ich da keine zusätlichen sw installieren.. Die Idee ist dadurch ein Newssystem zu realisieren, die Batch-Datei wird nachher in Autostart zugefügt und wir bei jeder Anmeldung ausgeführt. Das wichtigste ist dabei, das schonmal gelesene Datei nicht geöffnet wird.

%data% - ist das aktuelle Datum und ich dachte, wenn der befehl mit einem dateinamen verknüpft ausführen lassen, könnte auch das änderungs- oder erstellungsdatum ausgegeben werden. Ich programmiere Batch zum ersten Mal also war nur ne frage;)

Perl ? Weis nicht was du meinst

Danke, das ist hilfreich, aber jetzt hab ich noch ein größes Problem vor mir, ich muss eine such- oder filterfunktion einbauen, was das datum rausnimmt... So wirds nach dem Befehl ausgegeben: Volume in Laufwerk C: hat keine Bezeichnung. Volumeseriennummer: 7C1A-0E5C Verzeichnis von C:\Dokumente und Einstellungen\Administrator\Desktop 10.06.2008 10:42 188 test.cmd 1 Datei(en), 188 Bytes 0 Verzeichnis(se), 9.870.319.616 Bytes frei kann man irgendwie das %data% mit dem Dateinamen verknüpfen?

Ist richtig, aber ich weiss nicht wie ich das letzte Änderungsdatum aus der Datei rauskrige.. Hab Problemen mit Syntax..

Das hängt ja davon ab, ob es wirklich du dich dafür entschieden hast oder irgenein anderer z:B: der Chef. Ich würde einfach die Form aus der Doku nehmen...