はじめて投原させていただきます。

　以下に示しますよう、フォルダーを作成し、テキストを書き込んだ後にフォルダーを
削除したいと思っていますが、別のプロセスで使用中ですアクセスできませんと表示
されてしまい削除できません。何かよい方法がありましたら教えてください。

        Dim FName As String
        FName = "C:\TMP_VS1"
        System.IO.Directory.CreateDirectory(FName)

        Dim TextFile As IO.StreamWriter
        Dim Path As String
        Path = FName + "\" + "ASTP1.txt"
        TextFile = New IO.StreamWriter(Path)
        
        Dim I As Integer
        Dim A(10) As String
        
        A(1) = "Abc"
        A(2) = "Bcd"
        A(3) = "Cde"
        
        For I = 1 To 3
            TextFile.WriteLine(A(I))
        Next I
        
        TextFile.Close()

　　　 ChDir("c:\aya")

ここで、フォルダーを削除すると別のプロセスで使用中ですアクセスできませんと
表示されます。
        If System.IO.Directory.Exists(FName) = True Then
            System.IO.Directory.Delete(FName)'''ここでストップしてしまいます。
        End If

> ここで、フォルダーを削除すると別のプロセスで使用中ですアクセスできませんと
> 表示されます。
C:\TMP_VS1\ASTP1.txt を開いているソフトが居ませんか?
もしくは、ASTP1.txtを「開いていた」ソフトが、TMP_VS1 をカレントディレクトリに
しているとか。

> System.IO.Directory.Delete(FName)'''ここでストップしてしまいます。
これって、たとえ他のプロセスで使用されていなかったとしても、
　　『ディレクトリが空ではありません。』
で止まってしまうと思いますよ。

魔界の仮面弁士さん

ご返事ありがとうございます。
以下の２点を行いました結果、解決いたしました。

１、System.IO.Directory.Delete(FName, True)（ご指摘いただいた件です（True）

２、パソコンを再起動してみましたところ解決いたしました。

誠にありがとうございました。

> C:\TMP_VS1\ASTP1.txt を開いているソフトが居ませんか?
> もしくは、ASTP1.txtを「開いていた」ソフトが、TMP_VS1 をカレントディレクトリに
> しているとか。
>
> > System.IO.Directory.Delete(FName)'''ここでストップしてしまいます。
> これって、たとえ他のプロセスで使用されていなかったとしても、
> 　　『ディレクトリが空ではありません。』
> で止まってしまうと思いますよ。