テキストにパスを書くには？ (ID:114168)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

Imports System.IO
Dim z As String
    Dim h As String
Dim fileno As Integer
            Dim s As String

fileno = FreeFile()

FileOpen(fileno, .FileName, OpenMode.Input)
            While Not EOF(fileno)
                s = LineInput(fileno)
                '処理をさせる
                Dim nagasa As Integer
                nagasa = s.LastIndexOf(".")
                If nagasa > -1 Then
                    'z = s.Substring(0)
                    z = s
                    Dim nanagasa As Integer
                    nanagasa = z.LastIndexOf("デスクトップ")
                    h = h + z.Substring(nanagasa + 7) + vbCrLf
                    Dim kiroku As System.IO.StreamWriter = _
        System.IO.File.CreateText(.FileName)
                    kiroku.WriteLine(h)
                    kiroku.Close()
                    MessageBox.Show("保存完了しました。", "メッセージ")
                End If
            End While
            FileClose(fileno)

これで処理をさせているのですけどエラーが発生してしまいます。
あと、.FileNameにはファイルパスが入っています。

←解決時は質問者本人がここをチェックしてください。

戻る