- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- Milyen Android TV boxot vegyek?
- Steam Deck
- Milyen billentyűzetet vegyek?
- Milyen videókártyát?
- Tápos kibeszélő offtopik
- Kötelező frissítésnek számít a Microsoft legújabb csomagja a Windows 11-hez
- Csatlakozik a chipgyártást forradalmasító Terafabhoz az Intel
- TCL LCD és LED TV-k
- Vezeték nélküli fejhallgatók
Új hozzászólás Aktív témák
-
Ablakos
addikt
Összekalapáltam egy rövid parancssort. Annyit tud, hogy az aktuális folderben minden foldert külön arhívumba tesz. A gondom, hogyha batch fájlba teszem nem működik. Valaki légyszi nézzen rá mivan ezzel.
λ for /D %I in ("*") do "%ProgramFiles%\WinRAR\Rar.exe" a -cfg- -ep1 -inul -mt16 -m5 -r -- "%I.rar" "%I/" -
qdak
addikt
Köszi, de sajna nem jó, vagy nem indul el ,vagy ugyanúgy ékezet hibás.
(Win 10 en viszont alapból jó)Viszont, a force admin mód, csak az én gépemen működik (Win 7) míg másik gépeken próbálva, folyamatosan újraindult a cmd ki sem tudom kapcsolni? (azóta ki is szedtem belőle)
-
qdak
addikt
Hello,
Ezt meg lehet úgy csinálni, hogy normálisan legyenek ékezetek, vagy szedjem ki simán "á->a" stb...
@echo off
REM --> Check for permissions
>nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"
REM --> If error flag set, we do not have admin.
if '%errorlevel%' NEQ '0' (
echo Requesting administrative privileges...
goto UACPrompt
) else ( goto gotAdmin )
:UACPrompt
echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs"
echo UAC.ShellExecute "cmd.exe", "/C """"%~f0""""", , "runas", 1 >> "%temp%\getadmin.vbs"
cscript "%temp%\getadmin.vbs"
exit /B
:gotAdmin
if exist "%temp%\getadmin.vbs" ( del "%temp%\getadmin.vbs" )
pushd "%CD%"
CD /D "%~dp0"
color 0e
chcp 1250
cls
:start
echo.
ECHO -------------------------------------------------------------------------------
echo. Run Programs Script by Hedo
ECHO -------------------------------------------------------------------------------
echo 0. Programok és szolgáltatások
echo 1. Felügyeleti eszközök
echo 2. Fájlkezelő beállításai
echo 3. Számítógép-kezelés
echo 4. Helyicsoportházirend-szerkesztő
echo 5. Helyi biztonsági házirend
echo 6. Helyi felhasználók és csoportok
echo 7. Szolgáltatások
echo 8. Rendszerkonfiguráció
echo 9. Exit.
echo.
echo.
set /p x=Use Number:
IF '%x%' == '%x%' GOTO Item_%x%
:Item_0
cls
echo.
echo Programok és szolgáltatások
echo.
appwiz.cpl
pause
GOTO Item_99
:Item_1
cls
echo.
echo Felügyeleti eszközök
echo.
control admintools
pause
GOTO Item_99
:Item_2
cls
echo.
echo Fájlkezelő beállításai
echo.
control folders
pause
GOTO Item_99
:Item_3
cls
echo.
echo Számítógép-kezelés
echo.
compmgmt.msc
pause
GOTO Item_99
:Item_4
cls
echo.
echo Helyicsoportházirend-szerkesztő
echo.
gpedit.msc
pause
GOTO Item_99
:Item_5
cls
echo.
echo Helyi biztonsági házirend
echo.
secpol.msc
pause
GOTO Item_99
:Item_6
cls
echo.
echo Helyi felhasználók és csoportok
echo.
lusrmgr.msc
pause
GOTO Item_99
:Item_7
cls
echo.
echo Szolgáltatások
echo.
services.msc
pause
GOTO Item_99
:Item_8
cls
echo.
echo Rendszerkonfiguráció
echo.
msconfig
pause
GOTO Item_99
:Item_9
exit
:Item_99
cls
GOTO Start -
cigam
titán
válasz
STC Speed
#977
üzenetére
Nincs elöttem Windows, nem tudom kisakkozni, de valami ilyesmi:Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "C:\Folder1\"
Set objFolder = objFSO.GetFolder(objStartFolder)
Set colFiles = objFolder.Files
For Each objFile in colFiles
strFileName = objFile.Name
If objFSO.GetExtensionName(strFileName) = "xls" Then
InputFile = strFileName
SheetName = "Munka1"
OutputFile = "C:\Folder2\"&InputFilename
Ext = "44"
Set objExcel = CreateObject("Excel.application")
objExcel.application.visible=false
objExcel.application.displayalerts=false
set objExcelBook = objExcel.Workbooks.Open(InputFile)
objExcel.Sheets(SheetName).Select
objExcelBook.SaveAs OutputFile, Ext
objExcel.Application.Quit
objExcel.Quit
End If
Next -
STC Speed
őstag
Esetleg még annyit tudnál segíteni, hogy sok fájl esetén hogyan tudnám alkalmazni? pl egy mappa 100 ilyen fájl mentés másként nél.
1 fájlal most így néz ki :InputFile = "C:\Users\Fel\Desktop\fajl.xlsx"
SheetName = "Munka1"
OutputFile = "C:\Users\Fel\Desktop\fajluj"
Ext = "44"
Set objExcel = CreateObject("Excel.application")
objExcel.application.visible=false
objExcel.application.displayalerts=false
set objExcelBook = objExcel.Workbooks.Open(InputFile)
objExcel.Sheets(SheetName).Select
objExcelBook.SaveAs OutputFile, Ext
objExcel.Application.Quit
objExcel.QuitKöszi!
-
-
cigam
titán
válasz
elistvan
#960
üzenetére
A kódot is mutatja, de továbbra sem válaszoltál a path kérdésre. Miért?
Plusz látszólag nem
DIR C:\ > C:\TEMP\C_MAPS.TXT
van a kódodban, hanem
DIR C:\ 1> C:\TEMP\C_MAPS.TXTHa a kód elejére még beszúrod a
@ECHO OFF
sort, akkor látni fogod, hogy csak azt írta ki, hogy
A parancs sikeresen lefutott -
-
cigam
titán
válasz
elistvan
#956
üzenetére
Cégnél maradt a laptopom, macOS alatt nem tudom kipróbálni
rem Miért írod át a path változót?
PATH C:\
rem Lefut a listázás
DIR C:\ > C:\TEMP\C_MAPS.TXT
rem A dir parancs visszatérési kódjától függően mást ír ki.
IF %ERRORLEVEL% EQU 0 (Echo A parancs sikeresen lefutott) ELSE (Echo Hiba tortent)Ha nem jön jobb válasz, holnap este megnézem (ha el nem felejtem).
-
elistvan
őstag
Sziasztok!
Van egy programom, ami kilistázza a C: meghajtó tartalmát majd kimenti egy szövegfileba a c :\TEMP\C_MAPS.txt file-ba.
Ezt kellene kiegészíteni, hogy maga a művelet ugye ne látsszon a parancssori ablakban (ugye @echo off) csak a sikerességről vagy sikertelenségről adjon egy üzenetet a parancssorba a futás után mondjuk "A művelet sikeresen megtörtént." szöveggel.
maga az alap ugye ez:
@ECHO OFF
PATH C:\
DIR C:\ > C:\TEMP\C_MAPS.TXT
@ECHO ONHogy lehettne?
próbáltam így is:
@ECHO OFF
PATH C:\
DIR C:\ > C:\TEMP\C_MAPS.TXT
@ECHO ON
IF %ERRORLEVEL% NEQ 0 (
A másolás sikeresen megtörtént!
)
IF %ERRORLEVEL% NEQ 2 (
A létrehozás nem sikerült!
)
IF %ERRORLEVEL% NEQ 3 (
A létrehozás nem sikerült!
)
IF %ERRORLEVEL% NEQ 5 (
A létrehozás nem sikerült! Hozzáférés megtagadva!
)De nem működik.
Új hozzászólás Aktív témák
Hirdetés
- 137 - Lenovo Legion Pro 7 (16IRX9H) - Intel Core i9-14900HX, RTX 4080 (ELKELT)
- AKCIÓ!!! Sosemhasznált! HP OmniBook 5 i7-1355U 16GB 1TB 16" FHD+ Gar.: 1 év
- Samsung Galaxy S23 Ultra 5G 256GB, Kártyafüggetlen, 1 Év Garanciával
- GAMING PC! Ryzen 7600X / RX 7800 XT / 32GB DDR5 / 512GB NVMe / 700w! BeszámítOK
- Acer Predator Helios 18 AI I9 ULTRA 9275HX, 192GB RAM, 2TB SSD, RTX 5080
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest