#1
|
|||
|
|||
FileSystemObject Compile Error: User-Defined Type Not Defined
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 |
|
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 |