VBScript-Probleme

[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)

 

[deepthroat]

Hi.

Also erstmal wäre es ganz zauberhaft von dir uns mitzuteilen, was denn nun für ein Fehler auftritt bzw. was deiner Meinung nach nicht erwartungsgemäß funktioniert.

Dann poste doch bitte das nächste Mal den Quelltext mit [code=vb]...[/code] Tags, der PHP Hilighter ist nicht so toll für VB(Script) geeignet.

Wenn die Funktion MsgBox als Ergebnis 6 (bzw. vbYes) liefern soll, dann mußt du als zweites Argument "vbYesNo" übergeben - sonst wird das nix.

If MsgBox("...?", vbQuestion Or vbYesNo) = vbYes Then

Gruß

 

[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

 

[deepthroat]

While Not EoF(1)

Hast du denn auch zuvor eine Datei mit der Dateinummer 1 geöffnet? Der Fehler tritt auf, wenn keine Datei mit der Nummer 1 geöffnet ist.

Wenn du nicht weißt wie das geht, dann such mal hier im Forum nach Text Dateien lesen bzw. "open eof". Oder schau mal hier: http://www.quaschtel.de/wsh/filesystemobject.htm

Gruß

 

[Hawkings]

Ja, danke, den Fehler habe ich gestern auch noch gefunden, aber ich habe mich dann umdisponiert und mir eine andere Lösung gefunden, die ich als elegant betrachte, ich für meinen Teil bin stolz, das mit 5 tagen programmieren hinbekommen zu haben

Danke nochmal, hier die Lösung

Function ValidCheck

 For x = 0 To UBound(arrLog)
   
For i = 0 To 3 
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set datei = fso.OpenTextFile(arrLog(i))
Text = datei.ReadAll 
Pos1 = InStr( 1,Text,"No",1)
If Pos1 > 0 Then
  If InStr(1,Text, "No",1) > 0 Then  
     'MsgBox "Das Backup wurde ohne Fehler erstellt"
     WScript.Sleep (86400000)  
  Else
     'MsgBox "Fehler entdeckt bei der Validierung der Backups"
     Call BackUp
  End If
 Else
   'MsgBox "Fehler entdeckt bei der Validierung der Backups"
   Call BackUp
End If 

  
  Next
  
End Function

greetz Hawkin

http://spielwelt2.techwarrior.de/?ac=vid&vid=36034089
http://spielwelt15.monstersgame.net/?ac=vid&vid=39073437