Whew...
Liz Ravenwood
Database Developer / Programmer
Super First Class Products
B/E Aerospace
O: 1.520.239.4808
www.beaerospace.com
-----Original Message-----
From: MS_Access_Professionals@yahoogroups.com [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of Bill Mosca
Sent: Monday, June 25, 2012 5:02 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: RE: Off Board - Re: Bls: [MS_AccessPros] Erorr : fso = CreateObject("Scripting.FileSystemObject")
Gang
Please disregard the message I sent to John. I blundered and forgot to change the To line. John and I poke at each other off-board quite often.
Regards,
Bill
From: MS_Access_Professionals@yahoogroups.com [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of wrmosca@comcast.net
Sent: Monday, June 25, 2012 2:38 PM
To: MS Access Professionals
Subject: Off Board - Re: Bls: [MS_AccessPros] Erorr : fso = CreateObject("Scripting.FileSystemObject")
John - Off-board.
<snipped>
----- Original Message -----
From: "John Viescas" <JohnV@msn.com <mailto:JohnV%40msn.com> >
To: "MS Access Professionals" <MS_Access_Professionals@yahoogroups.com <mailto:MS_Access_Professionals%40yahoogroups.com> >
Sent: Monday, June 25, 2012 9:23:39 AM
Subject: RE: Bls: [MS_AccessPros] Erorr : fso = CreateObject("Scripting.FileSystemObject")
Hendra-
You need to:
Dim fso As Object
When you just Dim fso, it's a Variant that can't accept an object.
John Viescas, author
Microsoft Office Access 2010 Inside Out
Microsoft Office Access 2007 Inside Out
Building Microsoft Access Applications
Microsoft Office Access 2003 Inside Out
SQL Queries for Mere Mortals
< http://www.viescas.com/ > http://www.viescas.com/
(Paris, France)
From: MS_Access_Professionals@yahoogroups.com <mailto:MS_Access_Professionals%40yahoogroups.com> [mailto: MS_Access_Professionals@yahoogroups.com <mailto:MS_Access_Professionals%40yahoogroups.com> ] On Behalf Of Agestha Hendra
Sent: Monday, June 25, 2012 6:20 PM
To: MS_Access_Professionals@yahoogroups.com <mailto:MS_Access_Professionals%40yahoogroups.com>
Subject: Bls: Bls: [MS_AccessPros] Erorr : fso = CreateObject("Scripting.FileSystemObject")
Thanks Crystal :
Here is the completed codes :
Private Sub Command10_Click()
Dim fso
Dim fol As String
fol = "D:\NEW\VBS\a"
fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(fol) Then
fso.DeleteFolder fol
Else
MsgBox fol & " does not exist or has already been deleted!" _
, vbExclamation, "Folder not Found"
End If
End Sub
And the refrences list that are cheked :
- Visual Basic Application
- Microsoft Access 11.0 Access Object Library
- OLE Automation
- Microsoft DAO 3.6 Object Library
-Microsoft ActiveX Data Objects 2.5 Library
-Microsoft Scripting Runtime
Regards
Hendra
________________________________
Dari: Crystal < strive4peace2008@yahoo.com <mailto:strive4peace2008%40yahoo.com> <mailto:strive4peace2008%40yahoo.com> >
Kepada: " MS_Access_Professionals@yahoogroups.com <mailto:MS_Access_Professionals%40yahoogroups.com> <mailto:MS_Access_Professionals%40yahoogroups.com> " < MS_Access_Professionals@yahoogroups.com <mailto:MS_Access_Professionals%40yahoogroups.com> <mailto:MS_Access_Professionals%40yahoogroups.com> >
Dikirim: Senin, 25 Juni 2012 23:12
Judul: Re: Bls: [MS_AccessPros] Erorr : fso = CreateObject("Scripting.FileSystemObject")
Hi Hendra,
please post the whole routine, and anything it calls, thank you
also please tell us what references are checked, thank you
Warm Regards,
Crystal
*
(: have an awesome day :)
*
________________________________
From: Agestha Hendra < agesthahendra@ymail.com <mailto:agesthahendra%40ymail.com> <mailto:agesthahendra%40ymail.com> >
To: " MS_Access_Professionals@yahoogroups.com <mailto:MS_Access_Professionals%40yahoogroups.com> <mailto:MS_Access_Professionals%40yahoogroups.com> " < MS_Access_Professionals@yahoogroups.com <mailto:MS_Access_Professionals%40yahoogroups.com> <mailto:MS_Access_Professionals%40yahoogroups.com> >
Sent: Monday, June 25, 2012 9:19 AM
Subject: Bls: [MS_AccessPros] Erorr : fso = CreateObject("Scripting.FileSystemObject")
Thanks Crystal...
Yes, from the beginning i have clicked the Microsoft Scripting Runtime in refrence setting,
after your post i opened again and make sure it have clicked, but still got same erorr when
i run the codes....what's wrong with my access...? :(
Regards
Hendra
________________________________
Dari: Crystal < strive4peace2008@yahoo.com <mailto:strive4peace2008%40yahoo.com> <mailto:strive4peace2008%40yahoo.com> >
Kepada: " MS_Access_Professionals@yahoogroups.com <mailto:MS_Access_Professionals%40yahoogroups.com> <mailto:MS_Access_Professionals%40yahoogroups.com> " < MS_Access_Professionals@yahoogroups.com <mailto:MS_Access_Professionals%40yahoogroups.com> <mailto:MS_Access_Professionals%40yahoogroups.com> >
Dikirim: Senin, 25 Juni 2012 21:44
Judul: Re: [MS_AccessPros] Erorr : fso = CreateObject("Scripting.FileSystemObject")
Hi Hendra,
Microsoft Scripting Runtime
Warm Regards,
Crystal
Learn Access on YouTube
http://www.youtube.com/LearnAccessByCrystal
*
(: have an awesome day :)
*
________________________________
From: " agesthahendra@ymail.com <mailto:agesthahendra%40ymail.com> <mailto:agesthahendra%40ymail.com> "
Hi All,..
I tried to run codes to delete a folder,...
but i got an erorr :
Object doesn't support this property or methods
and with highlite on line :
fso = CreateObject("Scripting.FileSystemObject")
What reference library am i missing..?
i use Access 2003...
Any help would be appreciated,...thank you
Regards
Hendra
[Non-text portions of this message have been removed]
[Non-text portions of this message have been removed]
------------------------------------
Yahoo! Groups Links
[Non-text portions of this message have been removed]
[Non-text portions of this message have been removed]
[Non-text portions of this message have been removed]
[Non-text portions of this message have been removed]
[Non-text portions of this message have been removed]
------------------------------------
Yahoo! Groups Links
This email (and all attachments) is for the sole use of the intended recipient(s) and may contain privileged and/or proprietary information. Any unauthorized review, use, disclosure or distribution is prohibited. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message.
Tidak ada komentar:
Posting Komentar