Object variable or With block variable not set

[FerdinandFakers]

Hallo,

Bij het runnen van het onderstaande script in Word 2003 krijg ik melding "Object variable or With block variable not set".

Het is vast iets eenvoudigs, maar ik ben beginner in VBA

Alvast dank!
Ferdinand



Option Explicit
Sub ListFilesinFolder()

Dim objFSO, objFolder, strFolder, colSubFolders, objItem
Dim colFiles
Set objFSO = CreateObject("Scripting.FileSystemObject")
strFolder = InputBox("Which folder would you like to view?", "Enter Directory")
Set objFolder = objFSO.GetFolder(strFolder)
Selection.Font.Bold = True
Selection.TypeText "Subfolders in " & strFolder & vbCrLf
Selection.Font.Bold = False
Set colSubFolders = objFolder.Subfolders
For Each objItem In colSubFolders
Selection.TypeText objItem.Name & vbCrLf
Next
Selection.TypeText vbCrLf
Selection.Font.Bold = True
Selection.TypeText "Files in " & strFolder & vbCrLf
Selection.Font.Bold = False
Set colFiles = objFolder.Files
For Each objItem In colFiles
Selection.TypeText objItem.Name & vbTab & objItem.Size & vbCrLf
Next

End Sub

 

[snb]

Deze doet hetzelfde: (maar is geen VBA voor beginners)

Sub overzicht()
  With CreateObject("Scripting.FileSystemObject").getfolder(InputBox("Welke directory/map/folder"))
    For Each sf In .subfolders
      c0 = c0 & sf.Name & vbCr
    Next
    c0 = c0 & "Bestanden:" & vbCr
    For Each fl In .Files
      c0 = c0 & fl.Name & vbCr
    Next
  End With
  Activedocument.content = "Subdirectories:" & vbCr & c0
End Sub

 

[FerdinandFakers]

Geweldig, dat werkt!

Ik heb nog een script dat hetzelfde probleem heeft (zie onder). Wat nu precies het probleem was met die object variabele weet ik eigenlijk nog niet, maar alternatieve code is ook welkom!

Groet,
FF

Sub RunCommand()

Dim objShell, strCommand, objExec
Set objShell = CreateObject("WScript.Shell")
strCommand = InputBox("What Command do you want to run", "Enter Command ")
Selection.Font.Bold = True
Selection.TypeText "Executing: " & strCommand & vbCrLf
Selection.Font.Bold = False
Selection.TypeText "Waiting for results"
Set objExec = objShell.Exec(strCommand)
Do While objExec.Status = 0
Selection.TypeText "."
Sleep 1000
Loop
Selection.TypeText vbCrLf
Selection.TypeText objExec.StdOut.Readall & vbCrLf & vbCrLf

End Sub

 

[Wigi]

FF

Kan je aub code hier op het forum tussen code tags plaatsen? Selecteer de code, plak die hier in een bericht, en klik dan op het # icoontje.

Ik zou ook aanraden om bij het begin te beginnen, en niet met deze redelijk geavanceerde codes.

Succes ermee,

Wigi