Als erstes möchte ich ein freundliches Hallo an alle hier im Forum senden.
Zuz mir
Ich habe schon des mehrfachen versucht mich in VBS einzuarbeiten habe es dann aber immer wieder aufgegeben, da ich das Verständnis nicht aufbringen konnte. Vieles blieb einfach immer unklar für mich. Auch hatte ich keinen an meiner Seite der mir mal helfend und mit Rat beistand.:(
Trotzdem habe ich nun schon das ein oder andere kleiner VBS erstellt. Stoße aber immer recht schnell an meine Grenzen. Auf der Suche nach Hilfe sin ich sehr oft in diesen Forum gelangt weshalb ich mich hier heute registriert habe.
Die Suchfunktion habe ich natürlich genutzt aber nie das passende gefunden. Vielleicht verwende ich auch einfach nicht die richtigen Suchbegriffe...
Ich bitte euch schon vorab um Nachsicht mit mir und hoffe eure Nerven und eure Geduld nicht zu sehr zu strapazieren.
Nun zu meinem Problem:
Die Fehlermeldung sagt „Object erforderlich: „DirName“ Dies bezieht sich auf die If Abfrage! Aber ich verstehe nicht was er will bzw. warum er diesen Fehler ausgibt, da das „for each“ ja läuft. Hier ein Ausschnitt meines VBS
Vielen lieben Dank
cappy79
Zuz mir
Ich habe schon des mehrfachen versucht mich in VBS einzuarbeiten habe es dann aber immer wieder aufgegeben, da ich das Verständnis nicht aufbringen konnte. Vieles blieb einfach immer unklar für mich. Auch hatte ich keinen an meiner Seite der mir mal helfend und mit Rat beistand.:(
Trotzdem habe ich nun schon das ein oder andere kleiner VBS erstellt. Stoße aber immer recht schnell an meine Grenzen. Auf der Suche nach Hilfe sin ich sehr oft in diesen Forum gelangt weshalb ich mich hier heute registriert habe.
Die Suchfunktion habe ich natürlich genutzt aber nie das passende gefunden. Vielleicht verwende ich auch einfach nicht die richtigen Suchbegriffe...
Ich bitte euch schon vorab um Nachsicht mit mir und hoffe eure Nerven und eure Geduld nicht zu sehr zu strapazieren.
Nun zu meinem Problem:
Die Fehlermeldung sagt „Object erforderlich: „DirName“ Dies bezieht sich auf die If Abfrage! Aber ich verstehe nicht was er will bzw. warum er diesen Fehler ausgibt, da das „for each“ ja läuft. Hier ein Ausschnitt meines VBS
Visual Basic-Quellcode
- sFileSn1 = Right(sFileName,Len(sFileName)-InStrRev(sFileName,"\")) 'Dateiname ohne Pfadangabe
- sPath = Left(sFileName,InStrRev(sFileName, "\")-1) 'Speicherort, Pfadangabe ohne Datei
- sPackName = Left(sFileSN1,Len(sFileSN1)-4) 'Name der Datei ohne Dateiendung
- PathArray = Split(sPath, "\") 'Auslesen und aufteilen des Pfades
- For Each DirName In PathArray 'Durchlaufen der einzelnen Ordnernamen
- MsgBox DirName
- If DirName.contains ("Logs") Then
- WriteTXT( DocString )
- Else
- sDocFolder = sProjFolder & "Log" 'Pfad zum log ordner
- CreateFolderRecursive(sDocFolder) 'Ruft die Funktion auf und prüft ob die Ordner existieren. Wenn nicht werden diese angelegt.
- End If
- Next
Vielen lieben Dank
cappy79