hi deepak,
thanks for ur support but i can'tr access this..
dear i am not able to find my solution its not creating folderss....
Option Explicit
Dim objFSO, objFolder, objShell, strDirectory, strfol, fn, i
'change it
strDirectory = "C:\Users\dEEPAK\Desktop\t\"
' Create the File System Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
for i = 1 to 150
fn = right("00" & i, 3)
strfol = strDirectory & "E" & fn
If not objFSO.FolderExists(strfol) Then
Set objFolder = objFSO.CreateFolder(strfol)
End If
next
WScript.Quit
Hi,
Just copy the below code & paste the same in a notepad then save as it fol.bat
Don't forget to change the strDirectory = "C:\Users\dEEPAK\Desktop\t\"
to
your dir where you need to create the folder.
Code:Option Explicit Dim objFSO, objFolder, objShell, strDirectory, strfol, fn, i 'change it strDirectory = "C:\Users\dEEPAK\Desktop\t\" ' Create the File System Object Set objFSO = CreateObject("Scripting.FileSystemObject") for i = 1 to 150 fn = right("00" & i, 3) strfol = strDirectory & "E" & fn If not objFSO.FolderExists(strfol) Then Set objFolder = objFSO.CreateFolder(strfol) End If next WScript.Quit