Skript um einen bestimmten Ordner mit variablem Namen zu finden und dann in dessen Pfad zu gehen

  • VBScript

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von peterfido.

    Skript um einen bestimmten Ordner mit variablem Namen zu finden und dann in dessen Pfad zu gehen

    Hallo liebe lesende,

    ich stehe hier vor einem Problem auf Arbeit, wo ich in vbs ein Script erstellen soll das mir einen Wert in eine Datei schreibt.
    So weit so gut, ich habe gestern also damit angefangen VBS zu "lernen" und mich daran versucht, so weit geht alles wunderbar.
    Nur muss ich einen Ordner betreten der einen variablen Namen hat und egal wie ich es auch versuche, finde ich keine Lösung um das durchzusetzen...

    Ich hoffe das Ihr mir da helfen könnt

    Das ist mein Code für das komplette Problem, was so weit funktioniert so lange der Name gleichbleibend ist.

    VB.NET-Quellcode

    1. Const ForReading = 1
    2. Const ForWriting = 2
    3. set WshShell = WScript.CreateObject("WScript.Shell")
    4. strAppData = WshShell.ExpandEnvironmentStrings("%AppData%")
    5. 'Um den Ordner nh7aq4qq.default geht es, allerdings ist der Name dieses Ordners variabel
    6. strdatei = "" & strAppData & "\Mozilla\Firefox\Profiles\nh7aq4qq.default\prefs.js"
    7. suche = "ublus"
    8. neu = "bla"
    9. Set objFSO = CreateObject("Scripting.FileSystemObject")
    11. Set objTest = objFSO.GetFile(strdatei)
    12. If objTest.Size > 0 Then
    13. Set objFile = objFSO.OpenTextFile(strdatei, ForReading)
    14. strText = objFile.ReadAll
    15. objFile.Close
    17. found = InStr(1, strText,suche)
    18. if found > 0 then
    20. elseif found = 0 then
    21. Set objFile = objFSO.OpenTextFile(strdatei, ForWriting)
    22. objFile.Write strText & vbCrLf & neu
    23. objFile.Close
    24. End If
    25. End If


    Einer meiner vielen Versuche sinnvoll auszulesen, bisher konnte ich nur Dateien ausgeben lassen.

    VB.NET-Quellcode

    1. Set objFSO = CreateObject("Scripting.FileSystemObject")
    2. Set Folder = objFSO.GetFolder("C:\Program Files")
    4. For Each x in Folder
    5. MsgBox Folder
    6. If InStr(Folder.Name, ".txt") > 0 Then
    7. Dim dir
    8. Set dir = Folder.Name
    9. MsgBox dir
    11. End If
    13. Next


    Bitte nicht daran stören wenn es sehr unsauber ist, wie gesagt mein erster Laufversuch in vbs.
    Danke schonmal im Vorraus für die Hilfe,

    Phil

    Hier eine Möglichkeit um Alle SubFolder auszulesen.
    Habe deinen Post nur gerade überflogen, aber nicht kapiert was du eigentlich willst?
    In welchen Ordner willst du, was möchtest du da drinne machen? Usw.
    Bitte genaue Erläuterung.

    VB.NET-Quellcode

    1. Set objFSO = CreateObject("Scripting.FileSystemObject")
    2. Set Folder = objFSO.GetFolder("C:\Program Files")
    3. For Each SubFolder in Folder.Subfolders
    4. MsgBox SubFolder
    5. Next

    Steht im Quelltext, zur Kurzbeschreibung nochmal:
    Das Endgültige Ziel ist es in eine Datei von Firefox einen Wert zu ändern auf allen PCs unserer Domain.

    Das Script soll erstmal in %Appdata%\... nach einem Ordner suchen der für jeden User einen anderen Name hat.
    Dann unter Verwendung dieses Namens in den Ordner gehen und dort in einer Datei einen Wert suchen.
    Falls dieser vorhanden ist super, da das Script beim Start jedes Pc's automatisch danach schaut soll es das damit gewesen sein.
    Falls nicht soll es diesen Wert eintragen welcher damit in die about:config eingetragen wird.

    Keine Ahnung warum es bisher nicht geklappt hat, ich bin der Meinung die von dir gebotene Lösung schon versucht zu haben, dennoch ging sie diesmal reibungslos!
    Noch eine kleine Anpassung auf mein Script hin und fertig!

    Danke vielmals!! Auch für die sehr schnelle Antwort!

    Mfg Phil


    Achso falls es jemand interessiert:

    VB.NET-Quellcode

    1. Const ForReading = 1
    2. Const ForWriting = 2
    3. Set WshShell = WScript.CreateObject("WScript.Shell")
    4. strAppData = WshShell.ExpandEnvironmentStrings("%AppData%")
    5. Set objFSO = CreateObject("Scripting.FileSystemObject")
    6. Set Folder = objFSO.GetFolder( ""& strAppData & "\Mozilla\Firefox\Profiles\")
    8. For Each Subfolder in Folder.Subfolders
    9. If InStr(Subfolder.Name, ".default") > 0 Then
    10. 'MsgBox Subfolder.Name
    11. strdatei = "" & strAppData & "\Mozilla\Firefox\Profiles\"& Subfolder.Name &"\prefs.js"
    12. elseif InStr(Subfolder.Name, ".default") < 1 Then
    13. strdatei = "" & strAppData & "\Mozilla\Firefox\Profiles\nh7aq4qq.default\prefs.js"
    14. End If
    16. Next
    18. suche = "xxx"
    19. neu = "blub"
    20. Set objFSO = CreateObject("Scripting.FileSystemObject")
    22. Set objTest = objFSO.GetFile(strdatei)
    23. If objTest.Size > 0 Then
    24. Set objFile = objFSO.OpenTextFile(strdatei, ForReading)
    25. strText = objFile.ReadAll
    26. objFile.Close
    28. found = InStr(1, strText,suche)
    29. if found > 0 then
    31. elseif found = 0 then
    32. Set objFile = objFSO.OpenTextFile(strdatei, ForWriting)
    33. objFile.Write strText & vbCrLf & neu
    34. objFile.Close
    35. End If
    36. End If

    Naja, soviele Profilordner werden da nicht drin sein. Dessen Namen herauszufinden ist dann auch nicht soo schwer. Hauptsache Du bist nicht einer der Admins von meiner Arbeit. Was die so mit unseren Rechnern machen ist teilweise abenteuerlich :)
    Gruß
    Peterfido

    Keine Unterstützung per PN!

Facebook