a .bat file from a floppy disk Free Excel Macros (VBA) | Excel Programs

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php

Option Explicit

'//The Shell function runs other programs asynchronously so what
'//What you basically have to do is Open the existing Process
'//for the running Application and, LOOP & WAIT for the processes return state
'//ie when the specified process is in the signaled state
'//or a timeout occurs.

Private Declare Function OpenProcess Lib "kernel32" ( _
    ByVal dwDesiredAccess As Long, _
    ByVal bInheritHandle As Long, _
    ByVal dwProcessId As Long) As Long
    
Private Declare Function WaitForSingleObject Lib "kernel32" ( _
    ByVal hHandle As Long, _
    ByVal dwMilliseconds As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" ( _
    ByVal hObject As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" ( _
    ByVal hProcess As Long, _
    lpExitCode As Long) As Long

'&HFFFF
Private Const SYNCHRONIZE = &H100000
'// Note:SYNCHRONIZE Windows NT/2000
Private Const INFINITE = &HFFFF 'OR -1&
'// INFINITE, the function’s time-out interval never elapses.
Private Const STILL_ACTIVE = &H103

Public Function ShellAndWait(ByVal BatFile As String)
   '
   ' Shells a new process and waits for it to complete.
   ' Calling application is totally non-responsive while
   ' new process executes.
   '
Dim PID As Long
Dim hProcess As Long
Dim nRet As Long

'// Unlike other Functions Shell generates an error
'// instead of returning a 0 so handling the error
'// = Application NOT started.
On Error Resume Next
PID = Shell(BatFile, vbMinimizedNoFocus)
If Err Then
    '// handle the error here and End
    MsgBox "Could NOT exercute:= " & BatFile
    End
End If
On Error GoTo 0

'// SYNCHRONIZE For Windows NT/2000:
'// Enables using the process handle in any of the wait
'// functions to wait for the process to terminate.
'// obviously with NT you need access rights.
hProcess = OpenProcess(SYNCHRONIZE, False, PID)
'// Just set the dwMilliseconds to INFINITE to initiate a Loop
nRet = WaitForSingleObject(hProcess, INFINITE)

Do
    GetExitCodeProcess hProcess, nRet
    DoEvents
Loop While nRet = STILL_ACTIVE

CloseHandle hProcess

End Function

Sub OpenFileAndWait()
Dim sApp As String

'// Define the Application FullPath here
sApp = "C:ABatch.bat"
'sApp = "C:windowssystem32calc.exe"

'// Lets DoIt
ShellAndWait sApp
'// Tell me if Successful
MsgBox "Finished running task!"

End Sub

No	Macro Name
1	a .bat file from a floppy disk
2	backs up your book to a floppy disk
3	book backup to floppy disk
4	floppy disk backup
5	drive type show 5
6	show driver ready
7	Show drive serial number
8	shows all drivers
9	send alert e-mail from microsoft outlook
10	Add menu to file edit bar delete
11	excel operators hk
12	To print a text from excel in Excel
13	add save key to userforma
14	userforma save as key
15	backs up the workbook
16	specify file path and extension list in detail
17	lists xls files in the specified path from the active cell
18	Detailed report on harddisk
19	learning harddiskin free space etc ..
20	show file path list in detail fields of files file path etcâ € ¦

Excel Free Macros (VBA)

A .bat File From A Floppy Disk

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords