Initial commit

Author: ronknight

.gitattributes

@@ -0,0 +1,2 @@
+# Auto detect text files and perform LF normalization
+* text=auto

README.md

@@ -0,0 +1,34 @@
+# Search directory for a specific keyword or a file type and move files to new location using VBScript and batch file
+
+###### Date Created: January 17, 2019
+###### Author: Ronknight
+###### License: MIT
+###### Tags: Search, Move, Files, Images, VBScript, vbs, Batch, bat, CLI
+###### Script: search-move-files.vbs
+###### Description: Search all files that has a filename as the keyword from a source folder and move files to the new destination folder
+
+---
+
+## Instructions
+
+First, You’ll start by editing the **search-move-files.vbs** file.
+
+1. Open the vbs file using your favorite file editor.
+2. Change the **SourceFolder** path to your *SourceFolder* path. Example: C:\User\Ron\Downloads\
+3. Change the **DestFolder** path to your *DestFolder* path. Example: C:\User\Ron\Desktop\New Folder\
+4. Change **keyword** to your *new-keyword* Examples: .xlsx or .jpg or image
+5. Save and close *search-move-files.vbs*.
+---
+
+Secondly, edit the **Run-Seach-Move-Program.bat** file.
+
+1. Open the BATCH file using your favorite file editor.
+2. Update the **path** of your vbs file.
+3. Save and close *Run-Seach-Move-Program.bat*.
+---
+
+Lastly, Run the Program
+
+1. Double cLick **Run-Seach-Move-Program.bat** to execute the vbs program.
+2. Wait for vbs to finish the task.
+3. Watch as windows copies your files to your new location.

Run-Seach-Move-Program.bat

@@ -0,0 +1,9 @@
+:: Author: Ronknight
+:: Date: 1/17/19
+:: License: MIT
+:: Tags: Batch, bat, vbs, VBScript
+
+@echo off
+pushd %~dp0
+:: change path of seach-move-files.vbs, example c:\Plus\search-move-files\search-move-files.vbs
+start /b "" cscript c:\search-move-files.vbs

search-move-files.vbs

@@ -0,0 +1,53 @@
+' Date Created: January 17, 2019
+' Author: Ronknight
+' Script: search-move-files.vbs
+' Description: Search all files that has a filename as the keyword from a source folder and move files to the new destination folder
+
+dim objFSO, SourceFolder, DestFolder, Keyword, i
+
+'Path
+    'change sourcepath example "C:\Users\Ron\Downloads\"
+    SourceFolder = "Enter new path here"
+    'change sourcepath example "C:\Users\Ron\Desktop\Backup\"
+    DestFolder = "Enter new path here"
+
+'Variables
+    'Enter search keyword here, example "wc-product-export" or ".xls" or ".jpg"
+    Keyword = "Enter keyword here"
+    i = 0
+
+'Objects
+set objFSO = CreateObject("scripting.Filesystemobject") 
+set objFolder = objFSO.GetFolder(SourceFolder)  
+
+'Execute Main Function
+	Main objFSO.GetFolder(SourceFolder)
+	'Prompt end of Loop
+	Wscript.Echo "Exiting program..."
+
+Sub Main(objFolder)
+	'List all Subfolder form Source Directory
+        For Each File in objFolder.Files
+            x = objFSO.GetBasename(File)
+            'Search Keyword
+                If instr(lcase(x), Keyword) > 0 then
+                    i = i+1
+                    'Delete file if it already exists
+                    If objFSO.Fileexists(DestFolder & "\" & File.name) then
+                        objFSO.deleteFile DestFolder & "\" & File.name, true
+                    End If
+                'Move file to new location
+                Wscript.Echo "File moved: " & File.Name
+                objFSO.MoveFile SourceFolder & "\" & File.name, DestFolder
+                 End If
+        Next
+
+        If i>0 then
+            'Prompt end of process and show destination folder
+            Wscript.Echo "Moving of files completed..."
+            Wscript.Echo i &" Files moved to : " & DestFolder
+            Wscript.quit()
+        End If
+    'Prompt if keyword not found
+    Wscript.Echo "No match found..."
+End Sub