Ali Shabdar shabdar

## importInventory.js
void importInventory()
{
    //get contents of the remote CSV file
    csv = getUrl("http://yourserver.com/ftp.php");

    //create a list and add each row of the csv file into a new list item
    line_list = csv.toList("\n");

    //empty Products table if today's csv has data.
    if (line_list.size()  >  0)

## gist:2d6255700434f10044c5
void importInventory()
{
    //get contents of the remote CSV file
    csv = getUrl("http://yourserver.com/ftp.php");
    //show raw data for debugging purposes
    info csv;
}


## inventory.csv

          
            Product ID
            Product
            Quantity
            Unit Price
            Last Updated

            
              123
              Some Product 1
              12
              4.99
              15-04-13

            
              124
              Some Product 2
              22
              18
              15-04-14

            
              125
              Some Product 3
              7
              23.5
              15-04-15

            
              126
              Some Product 4
              655
              2.75
              15-04-16

            
              127
              Some Product 5
              0
              19
              15-04-17

## ftp.php
<?php

//ftp server information
//change values to reflect you server settings
$ftp_server = "ftp.yoursite.com";
$ftp_username = "username";
$ftp_password = "password";

$server_file = "/path_to_csv_file/inventory.csv";
$local_file = "inventory.csv";

## gist:7624346
alert = function(s) { WScript.Echo(s) }

var fso,
   folder,
	wordDoc,
	wordApp,
	extension = 'DOT',
	fileFormat = 1, //see http://msdn.microsoft.com/en-us/library/office/ff839952.aspx
	sourcePath = "\\SOURCE\\PATH\\" + extension + "\\",
	destPath = "\\DESTINATION\\PATH\\";

## gist:5402136
Public Function getURL(rng As Range) As String
  If rng(1).Hyperlinks.Count Then getURL = rng.Hyperlinks(1).Address
End Function

## bulk_file_renamer.vb
Sub batch_rename()
    On Error GoTo errHndl

    Dim fso As New FileSystemObject
    Dim fld As Folder
    Dim sourcePath As String, destPath As String
    Dim sourceFile As String, destFile As String, sourceExtension As String
    Dim rng As Range, cell As Range, row As Range

    sourcePath = "\path to old files\"

## missing_files.vbs
'set paths
sourcePath = "\\source\"
destPath = "\\dest\"

'initiate the file system object
set fso = CreateObject("Scripting.FileSystemObject")

if fso.FolderExists(sourcePath) then
	'first get all the sub-folder
	set folder = fso.GetFolder(sourcePath)
	void importInventory()
	{
	//get contents of the remote CSV file
	csv = getUrl("http://yourserver.com/ftp.php");

	//create a list and add each row of the csv file into a new list item
	line_list = csv.toList("\n");

	//empty Products table if today's csv has data.
	if (line_list.size() > 0)
Product ID	Product	Quantity	Unit Price	Last Updated
123	Some Product 1	12	4.99	15-04-13
124	Some Product 2	22	18	15-04-14
125	Some Product 3	7	23.5	15-04-15
126	Some Product 4	655	2.75	15-04-16
127	Some Product 5	0	19	15-04-17
	<?php

	//ftp server information
	//change values to reflect you server settings
	$ftp_server = "ftp.yoursite.com";
	$ftp_username = "username";
	$ftp_password = "password";

	$server_file = "/path_to_csv_file/inventory.csv";
	$local_file = "inventory.csv";
	alert = function(s) { WScript.Echo(s) }

	var fso,
	folder,
	wordDoc,
	wordApp,
	extension = 'DOT',
	fileFormat = 1, //see http://msdn.microsoft.com/en-us/library/office/ff839952.aspx
	sourcePath = "\\SOURCE\\PATH\\" + extension + "\\",
	destPath = "\\DESTINATION\\PATH\\";
	Public Function getURL(rng As Range) As String
	If rng(1).Hyperlinks.Count Then getURL = rng.Hyperlinks(1).Address
	End Function
	Sub batch_rename()
	On Error GoTo errHndl

	Dim fso As New FileSystemObject
	Dim fld As Folder
	Dim sourcePath As String, destPath As String
	Dim sourceFile As String, destFile As String, sourceExtension As String
	Dim rng As Range, cell As Range, row As Range

	sourcePath = "\path to old files\"
	'set paths
	sourcePath = "\\source\"
	destPath = "\\dest\"

	'initiate the file system object
	set fso = CreateObject("Scripting.FileSystemObject")

	if fso.FolderExists(sourcePath) then
	'first get all the sub-folder
	set folder = fso.GetFolder(sourcePath)