vbscript check: file exists?

Try something like this:

Function FileExists(strPath)
'checks if file (strpath) exists and return true if it does, False if it doesn't

   Dim oFSO

   Set oFSO = CreateObject("scripting.FileSystemObject")
   If 0FSO.FileExists(strPath) Then
      FileExists = TRUE
   Else
      FileExists = FALSE
   End If
End Function

Hi,
thanks, I tried what you've suggested, unfortunately, things are a little bit more complicated... when I run the script, the script will tell me that the file does exist. But, if I connect to the file server and try to open some files, I get the following error: " Error No. 4350 the remote storage service was not able to recall the file".

Is there anyway to create some sort of automated procedure which will test all files on that server? (we're talking about TB s of file storage).


Thanks again!

Would this help you check your Remote Storage?
http://technet2.microsoft.com/windowsserver/en/library/d8610197-296f-4bcd-81be-478440c63fef1033.mspx?mfr=true

Rob.

Well, actually, all I need to do is to create a some sort of a list, lets say Excel - of all files that I am unable to recall. I do not actually really need to recall the files.

THX :-)

In that case, if you know the file name that was supposed to be there, you can use:
Dim objFSO
strMissingFiles = "Missing Files" & VbCrLf & "============="
strFileName = "\\server\share\file.txt" 'or whatever file you can obtain the pointer for
Set objFSO = Wscript.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(strFileName) = False Then
      strMissingFiles = strMissingFiles & VbCrLf & strFileName
End If

Set objOutputFile = objFSO.CreateTextFile("C:\MissingFiles.txt", True)
objOutputFile.Write strMissingFiles
objOutputFile.Close

Set objOutputFile = Nothing
Set objFSO = Nothing

And you could put that inside a loop until you've gone through all of your pointers.

Regards,

Rob.

P.S.
I do not have physical access to this server, all I have is access to folder shares on that server.

Hi Rob, thanks but this is not working.... The .FileExists function will always return a TRUE value..

This is what I found out by now:

1) All users in the company can't access theses files and they get the same error message.
2) All files having this issue have the same icon: Some sort of a very small black clock on the down - left corner of the actual file icon.

This is what I thought could be helpful, but I don't know how to accomplish this: What makes these files get this specific icon?  Lets say that if we could find some way to know this, maybe I could write a script or even a small app that will check which files get this icon and which files don't...

Please help me, this is inhuman, I must find a way to automate this whole thing.

regards and appreciations to all of you!

I'm not at work, so I can't even use print screen, and I also can't find anything to show from the web... But, the files have different extensions... its like and overlaying icon (ie, like the windows shortcut icon which overlays on all created shortcuts)

hope this helps...

is the Remote Storage Running / started ?
Can you restart it without any events occurs

If the script tells you the file does exist, what happens if you try
objFSO.CopyFile strFileName, "C:\Temp"
This will "try" to copy one of those files to your C:\Temp folder.
That's weird, I'd like to know what it does....

You could try something like this, which tests the Icon Location property.  If you righ-click one of these "missing files" what is the Icon Location?  Below I have tested for Null, but you can change that:

strFolderName = "C:\Shortcuts"
Set colFileList = objWMIService.ExecQuery _
    ("ASSOCIATORS OF {Win32_Directory.Name='" & strFolderName & "'} Where ResultClass = CIM_DataFile")
   
 For Each objImageFile In colFileList
       If objImageFile.Extension = "lnk" Then
            Set objLink = Shell.CreateShortcut(objImageFile.Name)
            If IsNull(objLink.IconLocation) = True Then
                  strMissingFiles = strFileName
            End If
            Set objLink = Nothing
       End If
 Next

Rob.