VisualBasic2008ExpressEditionでプログラムしています。


Module1.vb内に、次のような処理をしてくれるPublic Functionを作りたいです。

つきましては、コードをご教示ください。

0. Public Functionの名前はAaaとする
1. 各種パラメータを受け取る
  1-1. strDirPath As String
  1-2. strFileName
  1-3. strWrite as String
2. もし、strDirPathに格納されているフォルダのパスの中に、strFileNameに格納されている文字列と同じファイル名が存在しなければ、当該ファイル(テキスト)を生成する。
3. 当該ファイルに、strWriteに格納されている文字列を上書きする。

回答の条件
  • 1人2回まで
  • 登録:2009/10/26 14:45:52
  • 終了:2009/10/26 21:30:31

ベストアンサー

id:bmax No.1

bmax回答回数67ベストアンサー獲得回数162009/10/26 20:43:29

ポイント100pt

質問の内容だけであれば下記のコードで実現可能です。


    Public Sub Aaa(ByVal strDirPath As String, ByVal strFileName As String, ByVal strWrite As String)

        Using sw As New System.IO.StreamWriter(strDirPath & strFileName, False)
            sw.Write(strWrite)
        End Using

    End Sub

注記

1.Function と指定されていましたが、戻り値の指定が無かったため Sub としています。

2.strDirPath に指定されたフォルダのパスが存在するかのチェックは行っていません。

  そのため、存在しないパスが指定されると例外が発生します。

  回避するならば以下のようにします。

    Public Sub Aaa(ByVal strDirPath As String, ByVal strFileName As String, ByVal strWrite As String)
        Try
            Using sw As New StreamWriter(strDirPath & strFileName, False)
                sw.Write(strWrite)
            End Using
        Catch ex As System.IO.DirectoryNotFoundException
            MessageBox.Show("指定されたフォルダが存在しません") '例としてメッセージボックスの表示
        End Try
    End Sub
id:jjkkjpjjkkjp

ありがとうございます!

2009/10/26 21:30:24

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません