Delete a file with a given extension

[thamoomin81]

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

[dday9]

Here is one way to do what you want:

        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

[thamoomin81]

Here is one way to do what you want:

        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

[dday9]

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.

[thamoomin81]

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.

[dday9]

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

[thamoomin81]

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

Sorry for wasting your time.

[Joacim Andersson]

Moved to the VBScript forum.

[Joacim Andersson]

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

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.