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

[プログラム・ファイルと同じフォルダに、任意の名前の、フォルダまたはファイルが存在するか参照し、無ければ、(テキストファイルの場合は空のファイルを)作成する]

VisualBasic2008Express(VB.NET)で上記のような動作をするSubをコーディングしていただけませんか。

●質問者: jjkkjpvb2008
●カテゴリ:コンピュータ
✍キーワード:sub VB.NET コーディング テキスト ファイル
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● km1967
●35ポイント

http://www.atmarkit.co.jp/fdotnet/dotnettips/209fileexists/filee...


2 ● rsc
●35ポイント ベストアンサー

下記URLを参考にして作ってみました。フォームにボタンを1つだけ設置して下記コードでとりあえず動くようです。

Public Class Form1

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 Dim fileName As String = InputBox("ファイル名を入力してください。")

 CreateNullFile(fileName)
 End Sub

 Private Sub CreateNullFile(ByVal fName As String)
 If System.IO.File.Exists(fName) = True Then
 MessageBox.Show("'" + fName + "'は存在します。")
 ElseIf System.IO.Directory.Exists(fName) = True Then
 MessageBox.Show("'" + fName + "'は存在します。")
 Else
 ' 戻り値を格納する変数を宣言する。改良!Nothingで初期化してみた。
 Dim hStream As System.IO.FileStream = Nothing
 ' hStream が破棄されることを保証するために Try ? Finally を使用する
 Try
 ' hStream が閉じられることを保証するために Try ? Finally を使用する
 Try
 ' 指定したパスのファイルを作成する
 hStream = System.IO.File.Create(fName)
 Finally
 ' 作成時に返される FileStream を利用して閉じる
 If Not hStream Is Nothing Then
 hStream.Close()
 End If
 End Try
 Finally
 ' hStream を破棄する
 If Not hStream Is Nothing Then
 Dim cDisposable As System.IDisposable = hStream
 cDisposable.Dispose()
 End If
 End Try

 MessageBox.Show("'" + fName + "'を作成しました。")
 End If
 End Sub
End Class

※参考URL

●ファイル、ディレクトリが存在するか調べる: .NET Tips: C#, VB.NET ...

http://dobon.net/vb/dotnet/file/fileexists.html

●VB.NET - ファイルを作成する

http://jeanne.wankuma.com/tips/vb.net/file/create.html

関連質問


●質問をもっと探す●



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