Search:

Use FileSystemObject methods to open and create files. For the recent file list, the program could maintain a file which contains file names, operations, and maybe dates and times, which is...

Try putting:

WScript.Timeout = 60*10
in the script

Run this to delete all queries on the active sheet:

While ActiveSheet.QueryTables.Count
ActiveSheet.QueryTables(1).Delete
Wend

VBScript doesn't like the + in btn+_OnClick. Try:

<input id="Plus" type="button" Value="+" />

<script language="vbscript">
Sub Plus_OnClick()
txtNum.value= Cint(textTop.value)...

The Cells object needs an explicit sheet reference (Excel VBA defaults to ActiveSheet, but not VBScript).

With Xlsheet
.Range(.Cells(3, j), .Cells(24, j + 1)).Copy .Range(.Cells(3, j+2),...

Have a look at the VBA Dir function.

What is the exact error?

Do a bit of debugging on the Copy line, e.g. output the j variable; is it zero?

I'm not sure if you can do separate Copy and Paste operation (which uses the Clipboard...

WScript.Echo IE.Document.GetElementsByTagName("HEAD")(0).innerHTML

For the IE window, loop through Shell.Windows looking for some aspect of your web page, e.g. the URL, partial URL, title etc.

"I know VERY little about vbs "

So why don't you search for VBScript inputbox?

The subroutine has Public scope (visible to all modules/procedures including external VBScript call) if it has the word 'Public' in front of the subroutine name or nothing:

Public Sub...

Your code doesn't compile for me (undeclared variables). Also, you only need one of the Set olApp statements. Split returns a zero-based array, so the For loop should start at 0, unless you are...

Outlook has userforms, and the available controls (text box, combo box, etc.) are the same as the userforms in Excel. You populate them with the appropriate Outlook object properties instead of...

CreateRepotversion2. Spelling mistake? Is the subroutine in a module? Is it Public?

Maybe Sub ExampleRun needs to wait until the new window has been created:

Before the Click: Set IE2 = Nothing

After the wait: Do While IE2 Is Nothing: DoEvents: Loop

and for the NewWindow2...

Redirect command output to a temporary file, run the command with objShell.Run instead of objShell.Exec, specifying the hide window option, then read the file using FileSystemObject.

Do you need to use a regex? If not, try calling this function:

Function Validate_File_Name(ByVal fileName As String) As String

Dim i As Integer, InvalidChars As String

InvalidChars...

Please post your code within
[/CODE ] tags without the spaces.

Try:
[code]If Radio(0).Checked Then
Msgbox "XP"
'objTSEnvironment("InstallOS") = "2"
ElseIf Radio(1).Checked Then...

Use FileSystemObject OpenTextFile and ReadLine to loop through the text file, using the folder string read from the file instead of your hard-coded folder name. Put the CreateTextFile before the...

Try something like this (untested):

For Each objWorksheet In objExcelBook.Worksheets
objWorksheet.Copy
objExcel.ActiveWorkbook.SaveAs "theFileName.csv", 23
objExcel.ActiveWorkbook.Close...

Your code is a combination of VBScript and pseudocode, so it's not surprising that it doesn't work.
The error says that the problem is on line 42, which is:


Display Prompt "Please Enter the...

For a recursive function to find all files in all subfolders of a start folder see...

Have a look at the Split function to separate the octets, then concatenate the modified parts or use the Join function.

Search for FileSystemObject recursive folders as the basis for your script. Everything you describe can be done with the appropriate FSO objects, properties and methods.

Most of this can be achieved using FileSystemObject properties and methods - http://msdn.microsoft.com/en-us/library/6kxy1a51%28v=VS.84%29.aspx.

1. Call FSO.FileExists.
2. File.OpenAsTextStream,...

See if the code here helps - http://www.rondebruin.nl/mail/folder3/signature.htm

It's written in VBA but should be fairly easy to port to VBScript.

See http://www.winvistatips.com/delete-key-subkeys-t753247.html

and call it thus:



For i = 0 To UBound(arr_RegKeys)
DeleteRegistryKey HKEY_CLASSES_ROOT, arr_RegKeys(i,0)
NextBut why are...

Get command line arguments using WScript.Arguments within the .vbs file.

Without me seeing the Robocopy help, try deleting the second quote. Arguments containing spaces might need to be surrounded by quotes - use Chr(34) for this - again check the help.

Referring to your first post, call the MonthName function in a loop, like this:

For i = 11 To 12

strSQL = "INSERT INTO " & _
strWorkTableName & " " & _
"(PartitionKey, CatKey,...

Because that concatenates the string literal "strSQL" and the variable i. You can't do that in VBScript to generate variable names.

I'm not sure why you need a loop with the code you've shown. ...

You posted in the wrong forum then. The forums are arranged by programming language, not topic. But you got there in the end.

FileSystemObject DeleteFolder.

Post your code if you need help.

Loop through WebBrowser1.Document.Links (each link is a HTMLAnchorElement) looking for the link with innerText starting with "Download file from CANSIM (CSV Version". Call the Click method on that...

For Each myPict In ActiveSheet.Pictures
If myPict.TopLeftCell = Range("E25") Then myPict.Delete
Next

Call URLDownloadToFile to download the image to your hard drive and then LoadPicture on the local file.

Try this. Assumes data starts in row 1, then row 3, 5, etc.

Sub Move_Rows()
Dim row As Long, col As Long

col = 1
For row = 1 To 80 Step 2
Range("A" & row & ":E" &...

VBScript itself does not have any visual elements like radio buttons. You could write an HTML application (http://en.wikipedia.org/wiki/HTML_Application) to do what you want.

Why do you want...

Doing it with the macro recorder gives the syntax.

With Selection(i, j)
If Not .Comment Is Nothing Then .Comment.Text .Comment.Text & vbLf & "Another comment"
End With

OpenTextFile is a method of the FSO class, so:

.... LogDFS.OpenTextFile(....

The same applies to CreateTextFile.

Set objItms = objFld.Items.Restrict("@SQL=" & Chr(34) & "urn:schemas:httpmail:subject" & Chr(34) & " Like '&#37;" & MyVar & "%'")