Suchbild^^

[Hawkings]

nabend, ich hatte schon mal n thread zu nem ähnlichen thema,

jetzt mal was anderes...
ich habe probleme mit folgenden queöötext, ich meine, dass soweit alles laufen sollte, tut es aber nicht..

und sooviel ahnung habe ich auch noch nicht, progge erst seit 4-5 Tagen, das ganze gehört zu nem script, dass datenbanken-backups erstellt und darauf dann noch auf fehler untersucht, das ist aber was anderes, vorerst mal das folgende prob

Suchbild:wo is der fehler

'Set WshShhell = WScript.CreateObject("Wscript.Shell")

'Variablendeklaration______________________________________________________
Dim fso 
Dim original
Dim lPath 'Backup
Dim wota
wota = WeekdayName(Weekday(Now))
original = "c:\aua\"
lPath = "c:\back\"&wota
Stunde = Hour(now())
'_____________________________Ende Variablendeklaration



'Hauptprogramm________________________
MsgBox "Pfad"&lPath&"."&Stunde&"."
If MsgBox ("Backuperstellung: "&vbCr&"Quellordner:"&original&" "&vbCr&"Zielordner: "&lPath&""&vbCr&"Vorgang wird fortgesetzt")=6 Then
Set fso = CreateObject("Scripting.FileSystemObject")
 
  If fso.FolderExists(original) = False Then
   MsgBox "Der zu kopierende Ordner existiert nicht,"&vbCr&" überprüfen sie die Pfadangaben: "&original&".",16,"Fehler - Ordner nicht gefunden"
   WScript.Quit
  
  Else If fso.FolderExists(lPath) = False Then
        'MsgBox Infos: 4: Ja/Nein Frage
        '              6: Gibt der Button Ja zurück
   If MsgBox ("Der Zielordner existiert nicht: "&lPath&""&vbCr&" Möchten sie, dass er erstellt wird?! ",4, " Ordner existier nicht") = 6 Then
   fso.CreateFolder(lPath)
   fso.CopyFolder original, lPath, True
   MsgBox "Ordner wurde erstellt und Daten kopiert",64,"Programm wurde erfolgreich ausgeführt"
   WScript.Quit
  Else
   MsgBox "Programm wird beendet.Daten nicht kopiert",64,"Ende"
   WScript.Quit
  End If
  End If
End If

MsgBox "Backup erfolgreich erstellt worden, von "&original&" nach "&lPath&" .",64," Ende"
WScript.Quit
Else
MsgBox "Programm wurde beendet",64,"Programm beendet"
WScript.Quit
End If

bitte helft mir weiter...(hoffe, richtiges forum)

 

[mage]

Nein, das sieht nach vbs aus und gehört ins VB Forum.
Was läuft konkret nicht?

 

[Hawkings]

ok, dann mache ich das mal....

das prob oben habe ich jetzt soweit gelöst,

dafür aber ein anderes, ein weiterer Teil ist dazugekommen, bzw. erstzt teile von oben

 WScript.Echo "Kontrolle der Validierung wird ausgeführt für folgende Dateien"& vbCr &"LogfileA:"&arrLog(0)&""&vbCr&" LogfileB: "&arrLog(1)&""&vbCr&" LogfileC: "&arrLog(0)&""& vbCr &" LogfileD: "&arrLog(0)&""
 For x = 0 To UBound(arrLog)
   
  While Not EoF(1)
   If Textzeile/line = "No errors reported" Then 'Prüfen, ob text vorhanden in textzeile
    MsgBox "Keine Fehler gefunden bei der Validierung"  'MsgBox ausgabe
   
   Else
    MsgBox "Fehler gefunden '"+lDayAsNumber+ "'näheres im Logfile'"+i+"' ."
   End If
   Wend
   Next
  
  Else 
  MsgBox "Programm wurde durch User beendet",64
  WScript.Quit
 End if
 Next

hierbei geht es um die überprüfung der validierung der backups

es bringt mir immer den fehler, dass EoF unverträglicher Typ ist....

danke im voraus, greetz hawkin