Mrrrr's Forum (VIEW ONLY)
Un forum care ofera solutii pentru unele probleme legate in general de PC. Pe langa solutii, aici puteti gasi si alte lucruri interesante // A forum that offers solutions to some PC related issues. Besides these, here you can find more interesting stuff.
|
Lista Forumurilor Pe Tematici
|
Mrrrr's Forum (VIEW ONLY) | Reguli | Inregistrare | Login
POZE MRRRR'S FORUM (VIEW ONLY)
Nu sunteti logat.
|
Nou pe simpatie:
Pisii Profile
 | Femeie
24 ani
Ialomita
cauta Barbat
24 - 44 ani |
|
|
TRaP
Moderator
Inregistrat: acum 6 ani
Postari: 787
|
|
The following code is to create a bat file whose shortcut I add at startup, since Windows 11 doesn't restart my folders as it should when I leave them open at shutdown.
Dim objFSO, outFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Open write stream
Set outFile = objFSO.CreateTextFile("PATH_TO_BAT_FILE\Open Folders.bat", True)
'Write each command line
outFile.WriteLine "Start %SystemRoot%\explorer.exe ""FOLDER PATH 1"""
outFile.WriteLine "Start %SystemRoot%\explorer.exe ""FOLDER PATH 2"""
outFile.WriteLine "Start %SystemRoot%\explorer.exe ""FOLDER PATH 3"""
outFile.WriteLine "Start %SystemRoot%\explorer.exe ""FOLDER PATH 4"""
outFile.WriteLine "Start %SystemRoot%\explorer.exe ""FOLDER PATH 5"""
outFile.WriteLine "Start %SystemRoot%\explorer.exe ""FOLDER PATH 6"""
'Close write stream
outFile.Close
WScript.Echo "Done." |
Additionally, between each line you can write an empty line using: outFile.WriteLine ""
Source:
|
|
| pus acum 1 an |
|