Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
COURSE of the MONTH
14 days, 10 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
Problem to the item
Posted on 2015-01-27
Hi,
I don't know why I get the error attached,
to these codes
I don't know why I get the error attached,
to these codes
Public Function vbascr2main() Set objFSO=CreateObject("Scripting.FileSystemObject") : out1="z:\cmp2\list1.txt" : Set objFile = objFSO.CreateTextFile(out1,True) : Dim x1 : For each x1 in AVX.Item : objFile.Write x1.Name & "<br />" : Next : objFile.Close : End Function
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
2 Comments
Active today
Try this.
Public Function vbascr2main()
Set objFSO=CreateObject("Scripting.FileSystemObject")
out1="z:\cmp2\list1.txt"
Set objFile = objFSO.CreateTextFile(outFile,True)
Dim x1
For each x1 in AVX.Item
objFile.WriteLine x1.Name
Next
objFile.Close
End Function
At first glance I don't see AVX as defined in your code Therefore it will error when you try and loop through it. I also don't recommend putting all that in one line of code as it makes it for someone who follows you to to read it. I recommend you break it down, something like this:
What error do you receive?
Public Function vbascr2main()
Dim x1
Set objFSO=CreateObject("Scripting.FileSystemObject")
out1="z:\cmp2\list1.txt"
Set objFile = objFSO.CreateTextFile(out1,True)
For each x1 in AVX.Item
objFile.Write x1.Name & "<br />"
Next
objFile.Close
End Function
What error do you receive?
Featured Post
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
Deploying a Microsoft Access application in a Citrix environment is not difficult but takes a few steps. However, Citrix system people are often of little help, as they typically know next to nothing about Access. The script provided here will take …
In threads here at EE, each comment has a unique Identifier (ID). It is easy to get the full path for an ID via the right-click context menu. However, we often want to post a short link within a thread rather than the full link. This article shows a…
Learn the basics of while and for loops in Python.
while loops are used for testing while, or until, a condition is met: The structure of a while loop is as follows: while <condition>: do something repeate: The break statement m…
Windows 8 came with a dramatically different user interface known as Metro. Notably missing from that interface was a Start button and Start Menu. Microsoft responded to negative user feedback of the Metro interface, bringing back the Start button a…
- Windows 10
- Microsoft Legacy OS
- Windows 8
- Windows OS
- Windows 7
- Windows Vista, Windows XP, Windows 2000, *Windows Explorer, *Internet Explorer (IE)
Suggested Courses
Course of the Month14 days, 10 hours left to enroll
770 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.