Delete a file with a given extension

Hi All,

Wondering if anyone can help, I'm attempting to delete a .ost file from a users roaming profile, I'm using the following code:

Dim strComputer, oWSH, oWMI, oFSO, AppDataFolder

strComputer = "."
Set oWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set oWSH = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
AppDataFolder = oWSH.ExpandEnvironmentStrings("%appdata%")

For Each file As String In IO.Directory.GetFiles(AppDataFolder & "\Thinstall\Microsoft Standard 2010 KMS\%Local AppData%\Microsoft\Outlook","*.ost")
IO.File.Delete(file)
Next

I keep getting "Expected In" error message on line 9 char 15. Any idea why? Sorry but I literally do no VB coding so am a bit lost.

Regards,
Ross

Here is one way to do what you want:

Code:

---

        Dim desired_ext As String = ".ost"
        Dim target_directory As New IO.DirectoryInfo("C:\Users\pc1\AppData\Roaming") 'My %appdata% folder
        Dim get_files As IO.FileInfo() = target_directory.GetFiles()

        'Loop through each file in our array
        For Each file As IO.FileInfo In get_files
            'Conditional statement to check if our file has the .ost
            If IO.Path.GetExtension(file.ToString) = desired_ext Then
                'Bye bye
                file.Delete()
            End If
        Next

---

Quote:

---

Originally Posted by dday9

Here is one way to do what you want:

Code:

---

        Dim desired_ext As String = ".ost"
        Dim target_directory As New IO.DirectoryInfo("C:\Users\pc1\AppData\Roaming") 'My %appdata% folder
        Dim get_files As IO.FileInfo() = target_directory.GetFiles()

        'Loop through each file in our array
        For Each file As IO.FileInfo In get_files
            'Conditional statement to check if our file has the .ost
            If IO.Path.GetExtension(file.ToString) = desired_ext Then
                'Bye bye
                file.Delete()
            End If
        Next

---

---

Hi dday9,

Thanks a bunch for the reply but I'm still getting errors, it doesn't appear to like the As String part on line one, this is the exact problem I was having with my example, it's saying it expects end of statement, any idea why? Here is what I done below which is pretty much a copy of what you have provided:

Dim desired_ext As String = ".ost"
Dim target_directory As New IO.DirectoryInfo("V:\Users\rod\AppData\Roaming\Thinstall\Microsoft Standard 2010 KMS\%Local AppData%\Microsoft")
Dim get_files As IO.FileInfo() = target_directory.GetFiles()

For Each file As IO.FileInfo In get_files
If IO.Path.GetExtension(file.ToString) = desired_ext Then
file.Delete()
End If
Next

Thanks,
Ross

Post a picture, if you would, of a screen shot of the errors. Because I just tried the example in post #2 and it executed without errors.

Attachment 100109

Please see attached image, very strange the error, I have other VB scripts which are running fine, I am executing them on Windows 7 if that matters.

Ahh, ok. This is not visual basic.net, that would've been nice to know. Let me message a mod for you.

Sorry my mistake, doh, if a mod could please transfer this to the correct forum it would be appreciated.

Sorry for wasting your time.

Moved to the VBScript forum.

You're mixing VBScript and VB.Net code. Remove the For Each loop and replace it with code similar to this:

Code:

---

oFSO.DeleteFile AppDataFolder & "\*.ost", True

---

When the second argument is set to True the FileSystemObject will try to delete the file even if the read-only attribute is set on the file. Note that this does not do a recursive search through any sub directories.