This has been updated and moved here: https://gist.github.com/codeartery/f9fa041933773628ddc9e60b67dfef20
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Function EachFolder(strRoot, includeRoot, funcRef, funcArgs, oFSO) | |
' @author: Jeremy England ( SimplyCoded ) | |
' @description: Loops through all folders and subfolders under a root directory. | |
Dim oFolder, changeProtection | |
If oFSO.FolderExists(strRoot) Then | |
For Each oFolder In oFSO.GetFolder(strRoot).SubFolders | |
changeProtection = oFolder.Path | |
EachFolder = funcRef(oFolder, funcArgs) | |
If UCase(EachFolder) = "SKIP_ALL" Then Exit Function | |
If UCase(EachFolder) = "SKIP_PARENT" Then Exit For |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
'create an arraylist | |
Set list = CreateObject("System.Collections.ArrayList") | |
'add values | |
list.add "mike" | |
list.add "jeremy" | |
list.add "kate" | |
list.add "alice" | |
'add a bunch of values easily via custom sub |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<!DOCTYPE html> | |
<html> | |
<head> | |
<style> | |
table { | |
background-color: #f2f2f2; | |
border: 5px solid cornflowerblue; | |
border-spacing: 10px; | |
font-family: Arial, Helvetica, sans-serif | |
} |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<!DOCTYPE html> | |
<!-- | |
Authors: Jeremy England | |
Company: SimplyCoded | |
Revised: 10/31/2016 | |
Description: | |
Gets a list of available COM objects on your computer. | |
Once populated, clicking on the COM name shows its members, as well as if it is vbscript compatible. | |
--> |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
'************************ | |
'Name: Disable Connection | |
'Author: Jeremy England | |
'Company: SimplyCoded | |
'Date: 10/01/2016 | |
'************************ | |
Option Explicit | |
Dim interface, interfaceName, interfaceTarget, available, verb | |
'Pick the Interface Name you want to disable |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
'Microsoft Excel Automation Basics | |
':: Create and edit an Excel File. | |
'--------------------------------- | |
'create the excel object | |
Set objExcel = CreateObject("Excel.Application") | |
'view the excel program and file, set to false to hide the whole process | |
objExcel.Visible = True |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Option Explicit | |
Dim fso : Set fso = CreateObject("Scripting.FileSystemObject") | |
Dim wsh : Set wsh = CreateObject("Wscript.Shell") | |
Dim args : Set args = WScript.Arguments | |
Dim this : this = WScript.ScriptFullName | |
Dim id, ans | |
'create message boxes | |
If args.count = 0 Then | |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
/** | |
@description | |
Creates a slide-show (i.e. carousel) out of anything with the class "carousel". | |
@guide https://youtu.be/BwwqVFehlqQ | |
@author Jeremy England | |
@company SimplyCoded | |
@revised 04-16-2016 | |
*/ | |
// CAROUSEL OBJECT | |
function Carousel(containerID) { |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<!DOCTYPE html> | |
<html> | |
<head> | |
<title>Animations Demo</title> | |
<!-- | |
Author : Jeremy England | |
Company : SimplyCoded | |
Created : 04-20-2016 | |
Guide : https://youtu.be/BwwqVFehlqQ | |
--> |