Benefit from a mission critical IT monitoring with Monitis Premium or get it FREE for your entry level monitoring needs.
-Over 200,000 users
-More than 300,000 websites monitored
-Used in 197 countries
-Recommended by 98% of users
Course Of The Month
4 days, 7 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
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
It’s been over a month into 2017, and there is already a sophisticated Gmail phishing email making it rounds. New techniques and tactics, have given hackers a way to authentically impersonate your contacts.How it Works
The attack works by targeti…
- The Email Laundry
- Email Servers
- Cybersecurity
- Email Protocols
- Network Security
- Security, *Phishing
The viewer will learn how to dynamically set the form action using jQuery.
In this fourth video of the Xpdf series, we discuss and demonstrate the PDFinfo utility, which retrieves the contents of a PDF's Info Dictionary, as well as some other information, including the page count. We show how to isolate the page count in a…
- Document Management
- Document Imaging
- Programming
- Adobe Acrobat
- Scripting Languages
- Printers and Scanners, OCR, *Scripts, *PDF, *text file
Suggested Courses
Course of the Month4 days, 7 hours left to enroll
689 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.