すべてのユーザーのためのvb.netプログラムのクリーンアップ一時ファイルディレクトリのガイダンスを探しています

Question

私が取り組んでいるプログラムで働く関数を得るためのガイダンスを探しています。

私が執着している機能は、そのコンピュータ上のすべてのユーザープロファイルのリモートコンピュータ上の複数のディレクトリからすべてのファイルを削除することです。

現時点では、file.delete（）を追加する前に、ディレクトリとサブディレクトリにあるすべてのファイルをテキストボックスに出力しようとしています。

ファイルパス内の各文字を別々の項目に分けているので、すべての「項目」が1文字の文字として表示されています（For..Eachと同じように）。

私はVB.netにはまだまだ慣れていないので、学習の段階ではまだ大変ですが、私はいくつかのガイダンスを探しています。

私はそれを検索し、一緒に作品を引っ張ってきましたが、壁に当たった、どんな助けもありがとう！

現在のコード：

Private Sub Deltemp_Click(sender As Object, e As EventArgs) Handles Deltemp.Click 
    If Compname2.Text = "" Then 
     MessageBox.Show("You didn't enter anything in the Computername field, please enter something then try again.") 
     GoTo statementend 
    End If 
    Try 
     If My.Computer.Network.Ping(Compname2.Text, 1000) Then 
      PSoutput.Text = "" 
     Else 
      PSoutput.Text &= Compname2.Text + " is not connected to our network currently." 
      GoTo statementend 
     End If 
     PSoutput.Text = "" 
     Dim userpath As String = "\\" + Compname2.Text + "\c$\users\" 
     Dim tempu(7) As String 
     tempu(0) = "\AppData\Local\Temp\" 
     tempu(1) = "\AppData\Local\Microsoft\Windows\Temporary Internet Files\" 
     tempu(2) = "\AppData\Local\Microsoft\Credentials" 
     tempu(3) = "\AppData\Local\Temporary Internet Files\" 
     tempu(4) = "\AppData\Roaming\Microsoft\Credentials" 
     tempu(5) = "\AppData\Roaming\SUN" 
     tempu(6) = "\AppData\Local\Apps\2.0" 
     Dim fsd As Object 
     fsd = FileIO.FileSystem.GetDirectories(userpath) 
     For Each user In fsd 
      Try 
       Dim filepaths = FileIO.SpecialDirectories.AllUsersApplicationData() 
       If user Like "*Default*" Or user Like "*.NET*" Or user Like "*All Users" Or user Like "*Public" Then 
        PSoutput.Text &= "" 
       Else 
        Dim Fullpath = user + tempu(7) 
        For Each item In Fullpath 
         FileIO.FileSystem.GetFiles(Fullpath) 
         PSoutput.Text &= item.ToString + " was found" & Environment.NewLine 
        Next 
       End If 
      Catch ex As Exception 
       PSoutput.Text &= "A file was skipped for being in use or an exception occured" & Environment.NewLine 
      End Try 
     Next 
    Catch 
     MessageBox.Show("The machine/ip entered doesn't exist on our network or is an invalid entry") 
    End Try 
statementend: 
    End Sub 

Answer 1

それはここでこの権利です：

Dim Fullpath = user + tempu(7) 
    For Each item In Fullpath '<<<<<<<<< 

Fullpathは、文字列のように見えるので、あなたがFor-Eachを行うときは、その文字列内の文字を反復処理しています。

私はあなたが望むものは、新しいDirectoryInfoを作成し、そのディレクトリにあるファイルを取得し、それらを反復することだと思います。

dim directory = new System.io.DirectoryInfo(Fullpath) 
For Each file in directory.GetFiles() 

「Option Strict」をコードの先頭に追加するか、プロジェクトで有効にすることをお勧めします。そうすれば、コンパイラは型の宣言を要求する上でより "厳密"になります。そして、コンパイラはどの型を扱っているかをより明示的に指定します。修正するためにいくつかのエラーを強調表示しますが、それはその価値があります。