document.write('
');
document.write('Function CheckFileFolderExists(strName, fFile)
');
document.write('
');
document.write('
');
document.write('Dim fso
');
document.write('Set fso = CreateObject("Scripting.FileSystemObject")
');
document.write(' CheckFileFolderExists = False
');
document.write('
');
document.write(' If fFile = True Then \' It\'s a file
');
document.write('
');
document.write(' If fso.FileExists(strName) = True Then
');
document.write(' CheckFileFolderExists = True
');
document.write(' Exit Function
');
document.write(' End If
');
document.write('
');
document.write(' Else \' It\'s a folder/directory
');
document.write('
');
document.write(' If fso.FolderExists(strName) = True Then
');
document.write(' CheckFileFolderExists = True
');
document.write(' Exit Function
');
document.write(' End If
');
document.write('
');
document.write(' End If
');
document.write('
');
document.write(' Set fso = Nothing
');
document.write('
');
document.write('End Function
');
document.write('
');
document.write('
');
document.write('
');