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>
Kepada: "MS_Access_Professionals@yahoogroups.com" <MS_Access_Professionals@yahoogroups.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>
To: "MS_Access_Professionals@yahoogroups.com" <MS_Access_Professionals@yahoogroups.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>
Kepada: "MS_Access_Professionals@yahoogroups.com" <MS_Access_Professionals@yahoogroups.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"
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]
Senin, 25 Juni 2012
Bls: Bls: [MS_AccessPros] Erorr : fso = CreateObject("Scripting.FileSystemObject")
__._,_.___
.
__,_._,___
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar