人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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に格納されている文字列を上書きする。

●質問者: jjkkjpjjkkjp
●カテゴリ:コンピュータ
✍キーワード:aaa as String VB コード
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● bmax
●100ポイント ベストアンサー

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


 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
◎質問者からの返答

ありがとうございます!

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ