From aa6eb36f19d72b2257fbb70933ddbb62c8cbe618 Mon Sep 17 00:00:00 2001
From: AiTechEye <40591179+AiTechEye@users.noreply.github.com>
Date: Sun, 14 Feb 2021 22:10:09 +0100
Subject: [PATCH] Add files via upload

---
 look_for_text.vbs | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100644 look_for_text.vbs

diff --git a/look_for_text.vbs b/look_for_text.vbs
new file mode 100644
index 0000000..3b36b70
--- /dev/null
+++ b/look_for_text.vbs
@@ -0,0 +1,36 @@
+look_for_text="text"
+file_type=".lua"
+folder_name = "foldername"
+
+
+'vbCrLf = new line
+'vbtab = tab
+
+'eg text= vbtab&"alpha = "
+'looks for:
+'	alpha =
+
+
+
+
+
+
+set sf=CreateObject("Scripting.FileSystemObject")
+pp=sf.GetAbsolutePathName(folder_name)
+sub folder(p)
+	for each fo in sf.GetFolder(p).subfolders
+		cfolders=cfolders+1
+		folder(fo)
+		for each fi1 in sf.GetFolder(fo).Files
+			if instr(fi1.name,file_type)<>0 then
+				if not sf.OpenTextFile(fi1.path,1).AtEndOfStream then
+					f=sf.OpenTextFile(fi1.path,1).readall
+					if instr(f,look_for_text) <> 0 then
+						msgbox(fi1.path)
+					end if
+				end if
+			end if
+		next
+	next
+end sub
+folder(pp)
\ No newline at end of file