اجرای دستورات فایل Bat در وی بی

[YasserDivaR]

سلام دوستان من یه فایل دستورات Bat دارم که کارش Rebuild_Icon_Cache رو انجام میده
چجوری میتونم این کار رو تو وی بی انجام بدم
نمی خوام فایلی رو بسازه و بعد اجرا بشه

بتونه بطور مستقیم دستورات رو اجرا کنه؟؟؟




@echo off
cls
echo The Explorer process must be killed to delete the Icon DB.
echo.
echo Please SAVE ALL OPEN WORK before continuing.
echo.

echo.
taskkill /IM explorer.exe /F
echo.
echo Attempting to delete Icon DB...
If exist %userprofile%\AppData\Local\IconCache.db goto delID
echo.
echo Icon DB has already been deleted.
echo.
goto main

:delID
cd /d %userprofile%\AppData\Local
del IconCache.db /a
echo.

echo.

:main

explorer.exe

[YasserDivaR]

آیا تابعی هم هست که کارش Desktop Refresh باشه

[gorg313]

سلام

واسه رفرش Desktop کد پايين



Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Const GW_CHILD = 5
Const WM_KEYDOWN = 256

Private Sub Command1_Click()
Dim hwnd As Long
hwnd = FindWindow("Progman", "Program Manager")

j = GetWindow(hwnd, GW_CHILD)
i = PostMessage(j, WM_KEYDOWN, &H74, 3)
End Sub



و براي Rebuild_Icon_Cache هم اينو از يه منبع خارجي پيدا کرده بودم خيلي وقت پيش ببين به کارت مياد

129495

موفق باشي

[YasserDivaR]

ممنونم اما کلا محض اطلاعم با چه کدی میشه کد های بالا رو اعمال کرد در داس بصورت چند خطی دستور ارسال کرد