Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Add your voice to the tech community where 5M+ people, just like you, are talking about what matters.
Dim myName 'As String Dim main_fldr 'As String Dim subfldr1 'As String Dim subfldr2 'As String Dim lastrow 'As Integer Dim cell 'As Object Const xlUp = -4162 '(&HFFFFEFBE) Set objWshShell = WScript.CreateObject("WScript.Shell") Set objFSO = CreateObject("Scripting.FileSystemObject") strUserProfile = objWshShell.Environment("PROCESS")("UserProfile") strNewDirectory = strUserProfile + "\My Documents\Students" If objfso.FolderExists(strnewdirectory) = False Then Set objFolder = objFSO.CreateFolder(strNewDirectory) End If subfldr1 = inputbox("Do you want to add a subfolder to the childs folder? Make sure you have an excel file called names with the names of all the children in it stored on C:drive before you start.", "Folder name", "add subfolder name here") 'folder1 subfldr2 = inputbox("What is the second foldername? These prompts are for the creation of project folders - for instance I add Assignment and Report as two subfolders. If you add nothing a folder will not be created", "Folder name", "") 'folder2 mynames = strUserProfile & "\My Documents\name.xls" 'location of the excel spreadsheet worksheetname = "Sheet1" 'name of the worksheet within excel Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open(mynames) objExcel.Visible = False Set ws = objExcel.activeworkbook.Worksheets(worksheetname) objExcel.Displayalerts = False 'find the lastrow on the sheet lastrow = ws.Range("A65536").End(xlUp).Row 'make the folders For Each cell In ws.Range("A5:A" & lastrow) myName = cell.Value & "_" & cell.Offset(0, 1).Value 'Call MkDir(strNewDirectory & "\") remove this.. its created already Call MkDir(strNewDirectory & "\" & myName & "\") Call MkDir(strNewDirectory & "\" & myName & "\" & subfldr1 & "\") Call MkDir(strNewDirectory & "\" & myName & "\" & subfldr2 & "\") Next objExcel.Displayalerts = True objexcel.Quit wscript.quit Function MkDir(strPath) Dim strParentPath, objFSO Set objFSO = CreateObject("Scripting.FileSystemObject") On Error Resume Next strParentPath = objFSO.GetParentFolderName(strPath) If Not objFSO.FolderExists(strParentPath) Then MkDir strParentPath If Not objFSO.FolderExists(strPath) Then objFSO.CreateFolder strPath On Error Goto 0 MakeDir = objFSO.FolderExists(strPath) End Function
|Adjust VBScript to merge two created PDF documents into one before attaching to email and sending||2||55|
|Chocolatey under PowerShell is not working properly||3||68|
|I need an Excel Macro modifed to filter out "R2O" and "Asset Verification" then copy the results to a new sheet.||4||27|
|VBA or Script to identify files which are duplicate in a folder||6||31|