FileSystemObject Compile Error: User-Defined Type Not Defined

gsrikanth · #1 04-19-2012, 10:22 PM

Code:

Dim FSO As New FileSystemObject


Private Sub Command1_Click()

  Dim fld As Folder
  Dim flds As Folders
  Dim fl As File

  With FSO
    
      Set fld = .GetFolder("D:\Projects Others\TZ-HASAN\WEB\images_upload")
      Dim f
      
      'MsgBox fld.Files.Count
      
      For Each fl In fld.Files
      
        If Right(fl.Name, 3) = "img" Then
          
          fl.Name = Left(fl.Name, Len(fl.Name) - 3) & "gif"
          
        End If
      
      Next
  
  End With
  

End Sub

Colin Legg · #2 04-20-2012, 01:30 AM

Excel is complaining that it does not know what a FileSystemObject is. To use FileSystemObject you have to use a special reference which tells Excel where it can find out what FileSystemObject is.

In the VBA IDE, go to Tools > References
Tick "Microsoft Scripting Runtime" and click OK

I haven't tested your code, but you should move the FSO declaration into the procedure and create an instance of FileSystemObject on a separate line from where it is declared.

Code:

Private Sub Command1_Click()
 
  Dim FSO As FileSystemObject
  Dim fld As Folder
  Dim flds As Folders
  Dim fl As File
 
  Set FSO = New FileSystemObject
 
  With FSO
 
      Set fld = .GetFolder("D:\Projects Others\TZ-HASAN\WEB\images_upload")
 
      'MsgBox fld.Files.Count
 
      For Each fl In fld.Files
 
        If Right(fl.Name, 3) = "img" Then
 
          fl.Name = Left(fl.Name, Len(fl.Name) - 3) & "gif"
 
        End If
 
      Next
 
  End With
 
End Sub

ashish128 · #3 03-28-2022, 06:32 AM

Hi, I had the same issue and your guidance resolved it. Thanks

In the VBA IDE, go to Tools > References
Tick "Microsoft Scripting Runtime" and click OK

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Application-defined or Object-defined error	Manit	Excel Programming	4	12-08-2011 07:35 PM
Edit Multiple Emails' User-Defined Field	ryancaseymcshane	Outlook	0	10-04-2011 07:40 AM
Compile error: sub or function not defined..	xena2305	Excel Programming	0	08-02-2011 10:17 AM
Why unable to use underscore in microsoft word styles( user defined)?	noufalcm	Word	1	03-08-2011 01:46 PM
User Defined Default Settings in Insert	J_oe	Word	1	02-17-2011 10:55 AM