iLogic Delete Files containing string Value

[jam_bhatti]

Hi,

I am trying to delete files containing similar words in files. in my case NN as perameter value and exist in all files as mentioned in below list.

"Nozzle-01_" & NN & ".iam"
"Nozzle Neck-01-01_" & NN & ".ipt"
"NozzleRepad-01-01_" & NN & ".ipt"
"Flange-01-01_" & NN & ".ipt"
"Blind-01-01_" & NN & ".ipt"
"Gasket-01-01_" & NN & ".ipt"

found some way and applied but un-successful.

if someone help me it will be highly appreciated.

Thanks in advance

SyntaxEditor Code Snippet

Dim iPath As String = ThisDoc.Path & "\"
Dim ContainingFileName As String = NN
If IO.File.Exists(iPath.Contains(ContainingFileName)) Then
    IO.File.Delete(ContainingFileName)
End If

[MechMachineMan]

Google: Msdn + vb.net + delete files.

Good luck.

[jam_bhatti]

HI,

@MechMachineMan

Thanks for your reply i think every one first putting query on google to find solution and then post to the forum.

and i am still did't find solutiion from google (MSDN) or may be unable to compile them with my porblem. i hope you will help with some code snippets.

Thanks

[MechMachineMan]

1) ThisDoc.Path only gets you the path of the folder the file is in, not the folder. Use

ThisApplication.ActiveDocument.FullFileName instead.

If you get errors, plz post screenshots of them so that we can help debug without having to recreate the program/documents

[jam_bhatti]

HI,

Nothing happened, close rule without any error. file still exist in the folder.

SyntaxEditor Code Snippet

Dim iPath As String = ThisApplication.ActiveDocument.FullFileName
Dim ContainingFileName As String = NN
If System.IO.File.Exists(iPath.Contains(ContainingFileName)) Then
    System.IO.File.Delete(ContainingFileName)
End If

[MechMachineMan]

How you currently have it written, it will only delete the file you have open in inventor if it's name has NN. Seeing as the file is in use, it is probably not allowing you to delete it. 

[jam_bhatti]

as my first post the folder exist many files containg file name "NN" which i define when created the parts or assemblies. the same way i want to delete them which file names are containing or having names with "NN".

File name are show below

"Nozzle-01_" & NN & ".iam"
"Nozzle Neck-01-01_" & NN & ".ipt"
"NozzleRepad-01-01_" & NN & ".ipt"
"Flange-01-01_" & NN & ".ipt"
"Blind-01-01_" & NN & ".ipt"
"Gasket-01-01_" & NN & ".ipt"

so please correct me to meet my requirements.

[MechMachineMan]

Dim oFile As String

Dim oFiles As String()

oFiles = System.IO.Directory.GetFiles(oFolder)

For Each oFile In oFiles

       '

       '

       '

Next

[GeorgK · Accepted solution]

Maybe like this:

For Each foundFile As String In My.Computer.FileSystem.GetFiles(
    My.Computer.FileSystem.SpecialDirectories.MyDocuments,
    Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, "*.ipt")

    Listbox1.Items.Add(foundFile)
Next

[MechMachineMan]

You could also try something like:

https://msdn.microsoft.com/en-us/library/ms143316(v=vs.110).aspx

System.IO.Directory.GetFiles ( _
	path As String, _
	searchPattern As String, _
	searchOption As SearchOption _
) As String()

Parameters path Type: System.String

The relative or absolute path to the directory to search. This string is not case-sensitive.

searchPattern Type: System.String

The search string to match against the names of files in path. This parameter can contain a combination of valid literal path and wildcard (* and ?) characters (see Remarks), but doesn't support regular expressions.

searchOption Type: System.IO.SearchOption

One of the enumeration values that specifies whether the search operation should include all subdirectories or only the current directory.

[xiaodong_liang]

Hi jam_bhatti,

It looks to me some of the replies from the gurus have helped this question,
but it seems you assigned NN to ContainingFileName without the quotation mark? I think it should be:

Dim ContainingFileName As String = "NN"

Are you still having the problem? If no, could you mark the one who helped you as a solution? thank you.

[jam_bhatti · Accepted solution]

Thanks to all

finally i get the solution as quoted

'Delete Files from folder containing NN
Dim path As String = ThisDoc.Path & "\"
For Each foundFile As String In My.Computer.FileSystem.GetFiles(path,
Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, "*" & NN & ".*")
My.Computer.FileSystem.DeleteFile(foundFile)
Next