Excel VBA to create Batch file within same directory as Excel File

Sub One() Need a quick snippet of code that creates a batch file within the current directory of spreadsheet. ie. so if Book1 is saved with C:\files\[login to view URL] the code will create a batch file within c:\filess\[login to view URL] End Sub Sub Two() Run the created batch file End Sub If you complete this quickly and are available for the next 4hours this will lead to a further quick and easy project. Thanks