DouKaku?beta

Comment detail

指定されたフォルダ以下のゴミ掃除 (Nested Flatten) 
Myを使えば楽ちん

1
2
3
4
5
6
7
Public Sub RemoveFile(ByVal directory As String)

    For Each file As String In My.Computer.FileSystem.GetFiles(directory, FileIO.SearchOption.SearchAllSubDirectories, "*~")
        My.Computer.FileSystem.DeleteFile(file)
    Next

End Sub

Index

Feed

Other

Link

Pathtraq

loading...
Creative Commons License このサイトの内容は、 クリエイティブ・コモンズ・ライセンスの下でライセンスされています。 [詳細]