Hallo zusammen.
Suche für einen Kumpel ein VBSript das je nachdem wie Spät es ist eine Datei startet also zb. zwischen 6 u.12 Uhr datei1 und zwischen 12 u.18 Uhr datei2. Wenn es zb.8Uhr ist wird datei1 gestartet.
Ich hoffe ich habe mich verständlich genug ausgedrückt.
Vielen Dank im vorraus.
drup TheTwister „VBSript Frage“
Also, hier ist ein Script, das die Auflistung der Unterverzeicnisse und Dateien in eine Textdatei schreibt:
' ----------------------------------------------
' dirAuflistung
' Verzeichnisse und Dateien anzeigen
' 20.06.2004 D.Ruprecht
' ----------------------------------------------
Option Explicit
Dim fso
Dim fOut
Dim WshShell
Dim sCurDir
Dim sPfad
Dim sParentDir
' Objekte initialisieren
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
' Verzeichnis angeben lassen
sParentDir = InputBox("Verzeichnis angeben:", _
"Verzeichnisinhalt auflisten", "C:\Temp")
If sParentDir = "" Then
MsgBox "Kein Verzeichnis angegeben."
WScript.Quit
End If
' Outputdatei öffnen
sCurDir = WshShell.CurrentDirectory
sPfad = fso.BuildPath(sCurDir, "dir.txt")
Set fOut = fso.OpenTextFile(sPfad, 2, True) ' 2 = ForWriting
fOut.Write "Verzeichnis von " & sParentDir & vbCrLf & vbCrLf
' Liste erzeugen
Call DateilisteAnzeigen(sParentDir, 0)
' Ende
fOut.Close
MsgBox "Verzeichnis wurde geschrieben nach: " & sPfad
' ----------------------------------------------------
Function DateilisteAnzeigen(ordnerAngabe, tiefe)
' ----------------------------------------------------
Dim oParent ' As Folder
Dim oFolders ' As folders
Dim oFiles ' As files
Dim fo ' As Folder
Dim fi ' As file
Dim sList ' As String
' Liste beginnt mit Verzeichnis
Set oParent = fso.GetFolder(ordnerAngabe)
sList = Space(tiefe) & oParent.Name
sList = sList & Space(60 - Len(sList)) & oParent.DateLastModified
sList = sList & vbCrLf
fOut.Write sList
' hier geht's rekursiv los: für alle Unterverzeichnisse
' diese Funktion nochmal aufrufen (das geht!)
Set oFolders = oParent.SubFolders
For Each fo In oFolders
Call DateilisteAnzeigen(fo, tiefe + 3)
fOut.Write vbCrLf
Next
'und jetzt noch die Files im Verzeichnis:
Set oFiles = oParent.files
For Each fi In oFiles
sList = Space(tiefe + 3) & fi.Name
sList = sList & Space(60 - Len(sList)) & fi.DateLastModified
sList = sList & vbCrLf
fOut.Write sList
Next
End Function
