Tutorial by Examples

File exists: Sub FileExists() Dim fso as Scripting.FileSystemObject Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists("D:\test.txt") = True Then MsgBox "The file is exists." Else MsgBox "The file isn't exist...

Copy: Sub CopyFile() Dim fso as Scripting.FileSystemObject Set fso = CreateObject("Scripting.FileSystemObject") fso.CopyFile "c:\Documents and Settings\Makro.txt", "c:\Documents and Settings\Macros\" End Sub Move: Sub MoveFile() Dim fso as Scri...

Create: Sub CreateFolder() Dim fso as Scripting.FileSystemObject Set fso = CreateObject("Scripting.FileSystemObject") fso.CreateFolder "c:\Documents and Settings\NewFolder" End Sub Copy: Sub CopyFolder() Dim fso as Scripting.FileSystemObject Set fso...

Get file name: Sub GetFileName() Dim fso as Scripting.FileSystemObject Set fso = CreateObject("Scripting.FileSystemObject") MsgBox fso.GetFileName("c:\Documents and Settings\Makro.txt") End Sub Result: Makro.txt Get base name: Sub GetBaseName() Dim fso ...