Har du set hvor smart det kan være?

• Word - Smart Office Skabelon system
• Word - Søg og erstat i flere dokumenter
• Excel - File Export
• Excel - Data Management (Freeware)

SmartOffice - FileOrFolderExists

Public Function FileExists(ByRef FullPathAndFileName As String) As Boolean
    ' Returns True if the file exists
    FileExists = CBool(Len(Dir(FullPathAndFileName)))
End Function

Public Function FolderExists(ByRef FullPathName As String) As Boolean
    ' Returns True if the folder exists
    FolderExists = CBool(Len(Dir(FullPathName, vbDirectory)))
End Function