10
VBS Probleme
Werte Programmierer,
Ich bin nicht so der ober Programmierer, deshalb stehe ich diesmal wieder mal auf der Leitung!
Ich möchte mit dem Script überprüfen, ob eine gewisse Datei (%username%.htm) in einem gewissen Laufwerk vorhanden ist.
Wenn die Datei vorhanden ist, dann soll überprüft werden, ob ein gewisser Ordner vorhanden ist, wenn dieser vorhanden ist, dann soll er die gefundene Datei (%username%.htm) in diesen Ordner kopieren, wenn der Ordner nicht vorhanden ist, dann den Ordner (test) erstellen und dann wieder die Datei in den Ordner Test kopieren!
Leider schaffe ich es nicht das in ein vernünftiges Script zu packen.
Anbei mein Script
Ich bin nicht so der ober Programmierer, deshalb stehe ich diesmal wieder mal auf der Leitung!
Ich möchte mit dem Script überprüfen, ob eine gewisse Datei (%username%.htm) in einem gewissen Laufwerk vorhanden ist.
Wenn die Datei vorhanden ist, dann soll überprüft werden, ob ein gewisser Ordner vorhanden ist, wenn dieser vorhanden ist, dann soll er die gefundene Datei (%username%.htm) in diesen Ordner kopieren, wenn der Ordner nicht vorhanden ist, dann den Ordner (test) erstellen und dann wieder die Datei in den Ordner Test kopieren!
Leider schaffe ich es nicht das in ein vernünftiges Script zu packen.
Anbei mein Script
' *** Initialze objects ***
Set WSHShell = WScript.CreateObject("WScript.Shell")
Set fs = CreateObject("Scripting.filesystemobject")
' *** aktualisieren ***
If fs.Fileexists(wshshell.ExpandEnvironmentStrings("D:\%username%.htm")) goto :copy
End If
:copy
If fs.Folderxists(wshshell.ExpandEnvironmentStrings("D:\test")) = true then
fs.CopyFile wshshell.ExpandEnvironmentStrings("D:\%username%.htm"), wshshell.ExpandEnvironmentStrings("D:\test\%username%.htm")
else
fs.CreateFolder wshshell.ExpandEnvironmentStrings("D:\test")
fs.CopyFile wshshell.ExpandEnvironmentStrings("D:\%username%.htm"), wshshell.ExpandEnvironmentStrings("D:\test\%username%.htm")
End If
End If
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 166888
Url: https://administrator.de/contentid/166888
Ausgedruckt am: 14.11.2024 um 19:11 Uhr
10 Kommentare
Neuester Kommentar
Hi
probier mal
Gruß
Norbert
probier mal
' *** Initialze objects ***
Set WSHShell = WScript.CreateObject("WScript.Shell")
Set fs = CreateObject("Scripting.filesystemobject")
' *** aktualisieren ***
If fs.Fileexists(wshshell.ExpandEnvironmentStrings("D:\%username%.htm")) Then
If fs.Folderexists("D:\test") = true then
fs.CopyFile wshshell.ExpandEnvironmentStrings("D:\%username%.htm"), wshshell.ExpandEnvironmentStrings("D:\test\%username%.htm")
Else
fs.CreateFolder wshshell.ExpandEnvironmentStrings("D:\test")
fs.CopyFile wshshell.ExpandEnvironmentStrings("D:\%username%.htm"), wshshell.ExpandEnvironmentStrings("D:\test\%username%.htm")
End If
End IfGruß
Norbert
Hi,
Danke für die rasche Rückmeldung.
Es funktioniert wirklich - Vielen Dank
sieht eigentlich eh ganz einfach aus, nur bin ich nicht darauf gekommen, wie ich es lösen könnte.
Danke nochmal
Danke für die rasche Rückmeldung.
Es funktioniert wirklich - Vielen Dank
sieht eigentlich eh ganz einfach aus, nur bin ich nicht darauf gekommen, wie ich es lösen könnte.
Danke nochmal
Ich bin heute auf ein Problem gekommen!!
Es wird nämlich beim 2.mal aufrufen der Datei eine Fehlermeldung ausgegeben, dass es die Datei schon einmal gibt.
Fehler tritt auf in Zeile 11 im oberen Script!!
Woran kann das liegen.
So wie es aussieht probiert er den Ordner nochmals anzulegen, jedoch ist dieser schon vorhanden.
Ich würde nochmal um deine / Eure hilfe ersuchen.
Danke
Es wird nämlich beim 2.mal aufrufen der Datei eine Fehlermeldung ausgegeben, dass es die Datei schon einmal gibt.
Fehler tritt auf in Zeile 11 im oberen Script!!
Woran kann das liegen.
So wie es aussieht probiert er den Ordner nochmals anzulegen, jedoch ist dieser schon vorhanden.
Ich würde nochmal um deine / Eure hilfe ersuchen.
Danke
Hi
ich kann den Fehler nicht Nachstellen.
Hast du noch was im Script verändert?
Gruß
Norbert
ich kann den Fehler nicht Nachstellen.
Hast du noch was im Script verändert?
Gruß
Norbert
Nein habe ich nicht.
Ich habe nur die Pfade geändert, da es im Netzwerk läuft und bei jedem Anmelden die Datei überschrieben werden soll.
Die Datei wird von einem freigegebenen Netzlaufwerk ins lokale Userverzeichnis kopiert!
Der Fehler tritt auf, wenn der Ordner schon vorhanden ist! Auch wenn ich die Dabei im Ordner lösche, kommt der Fehler.
Wenn ich den Ordner lösche, dann funktioniert es wieder.
Keine Ahnung, warum das nicht funktionert.
Bei mir lokal zu hause nicht im Netzwerk funktioniert das einwandfrei.
Ich habe nur die Pfade geändert, da es im Netzwerk läuft und bei jedem Anmelden die Datei überschrieben werden soll.
Die Datei wird von einem freigegebenen Netzlaufwerk ins lokale Userverzeichnis kopiert!
Der Fehler tritt auf, wenn der Ordner schon vorhanden ist! Auch wenn ich die Dabei im Ordner lösche, kommt der Fehler.
Wenn ich den Ordner lösche, dann funktioniert es wieder.
Keine Ahnung, warum das nicht funktionert.
Bei mir lokal zu hause nicht im Netzwerk funktioniert das einwandfrei.
Hallo retz12 und MrTrebron!
Eine etwas wartungsfreundlichere Variante - vielleicht geht's ja damit
:
Grüße
bastla
Eine etwas wartungsfreundlichere Variante - vielleicht geht's ja damit
:' *** Initialze objects ***
Set WSHShell = WScript.CreateObject("WScript.Shell")
Set fs = CreateObject("Scripting.filesystemobject")
SourceFile = WSHShell.ExpandEnvironmentStrings("D:\%username%.htm")
TargetFolder = "D:\test\"
' *** aktualisieren ***
If Right(TargetFolder, 1) <> "\" Then TargetFolder = TargetFolder & "\"
If fs.FileExists(SourceFile) Then
If Not fs.FolderExists(TargetFolder) Then fs.CreateFolder TargetFolder
fs.CopyFile SourceFile, TargetFolder
End Ifbastla
Irgendwo ist in diesem Script auch noch ein Fehler
zeile 11
Char 47
Pfad nicht gefunden.
Genau genommen möchte ich folgenden Order erstellen, bzw. die Datei in den Ordner kopieren
C:\Users\%username%\AppData\Roaming\Microsoft\Signatures
Jedoch lässt er mir das nur einmal zu. Beim überschreiben kommt dann die Fehlermeldung!
zeile 11
Char 47
Pfad nicht gefunden.
Genau genommen möchte ich folgenden Order erstellen, bzw. die Datei in den Ordner kopieren
C:\Users\%username%\AppData\Roaming\Microsoft\Signatures
Jedoch lässt er mir das nur einmal zu. Beim überschreiben kommt dann die Fehlermeldung!
Hallo retz12!
Vorweg: Für den genannten Pfad sollte die Zeile 6
lauten.
Nachvollziehbar wäre noch, wenn es den Ordner "Microsoft" nicht gäbe - dann würde tatsächlich der "Pfad nicht gefunden", allerdings müsste es den Fehler dann bereits beim erstmaligen (und jedem weiteren) Lauf des Scripts geben ...
Vorbeugen ließe sich dem etwa so:
Grüße
bastla
Vorweg: Für den genannten Pfad sollte die Zeile 6
TargetFolder = WSHShell.ExpandEnvironmentStrings("%appdata%\Microsoft\Signatures")
Nachvollziehbar wäre noch, wenn es den Ordner "Microsoft" nicht gäbe - dann würde tatsächlich der "Pfad nicht gefunden", allerdings müsste es den Fehler dann bereits beim erstmaligen (und jedem weiteren) Lauf des Scripts geben ...
Vorbeugen ließe sich dem etwa so:
Set WSHShell = WScript.CreateObject("WScript.Shell")
Set fs = CreateObject("Scripting.filesystemobject")
PathParts = Split(WSHShell.ExpandEnvironmentStrings("%appdata%\Microsoft\Signatures"), "\")
TargetPath = PathParts(0) & "\"
For i = 1 To UBound(PathParts)
TargetPath = TargetPath & PathParts(i) & "\"
If Not fs.FolderExists(TargetPath) Then fs.CreateFolder TargetPath
Nextbastla
Hallo bastla,
Danke für die Hilfe beim Programmieren!!
Ich habs jetzt es fehlte nur der Zusatz "WSHShell.ExpandEnvironmentStrings" in der Zeile 6
Was bewirkt dieser Teil eigentlich?
Aber danke nochmal
Danke für die Hilfe beim Programmieren!!
Ich habs jetzt es fehlte nur der Zusatz "WSHShell.ExpandEnvironmentStrings" in der Zeile 6
Was bewirkt dieser Teil eigentlich?
Aber danke nochmal
Hallo retz12!
Grüße
bastla
Was bewirkt dieser Teil eigentlich?
Damit wird der Inhalt einer CMD-Systemvariablen (wie zB "%temp%" oder "%windir%) ausgelesen - für den Pfad "D:\test" wäre das nicht erforderlich, für einen Pfad unterhalb von "%appdata%" natürlich sehr wohl ...Grüße
bastla
