aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

June 2018 Update

Browse source
This commit is contained in:
Ingy döt Net 2018-06-22 20:57:24 +00:00
parent ba8067c3b7
commit 22f33d4004
5278 changed files with 84726 additions and 14379 deletions
Download patch file Download diff file Expand all files Collapse all files

51
Task/Check-that-file-exists/VBScript/check-that-file-exists.vb
View file

@ -1,24 +1,33 @@
Set FSO=CreateObject("Scripting.FileSystemObject")
Set FSO = CreateObject("Scripting.FileSystemObject")
Function FileExists(strFile)
if FSO.fileExists(strFile) then
FileExists=true
else
FileExists=false
end if
end function
If FSO.FileExists(strFile) Then
FileExists = True
Else
FileExists = False
End If
End Function
Function folderExists(strFolder)
if FSO.folderExists(strFolder) then
folderExists=true
else
folderexists=false
end if
end function
Function FolderExists(strFolder)
If FSO.FolderExists(strFolder) Then
FolderExists = True
Else
Folderexists = False
End If
End Function
'''''usage (apostrophes indicate comments-this section will not be run)'''''
'if fileExists("C:\test.txt") then
'msgbox"It Exists!"
'else
'msgbox"awww"
'end if
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''Usage (apostrophes indicate comments-this section will not be run)'''''
'If FileExists("C:\test.txt") Then
' MsgBox "It Exists!"
'Else
' Msgbox "awww"
'End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Shorter version
If CreateObject("Scripting.FileSystemObject").FileExists("d:\test.txt") Then
Wscript.Echo "File Exists"
Else
Wscript.Echo "File Does Not Exist")
End If