◆【ClickOnce 運用上の疑問点】ClickOnceデータ・ファイル（mdf）のバックアップやmail送受信管理は？

まず、メールで受信した添付ファイルを「名前をつけて保存」の既定場所でありますMy Documentsフォルダに
あらかじめ定めた名前（例えばＡＢＣ）のフォルダを次のように自動作成しておきます。

ぴんふさんの書き込み (2008-06-27 13:35) より:
私のメーラーでは保存のデフォルトはMy Documentsではなく前回保存したフォルダです。

保存場所はユーザが任意に変えられるし、違うユーザ名でログオンされることもありますからMy Documents下に固定してしまうのはベターではないと思います。そういう意味もこめてSaveFileDialog（この場合はSaveじゃなくてOpenのほうが適切かな？）等の利用をお奨めしました。

私の経験では「適当な場所に保存・・」と言いますと「適当な場所」てどの辺にあるのですかと聞かれたことがあります。むしろ固定したほうが親切なようです。居酒屋で「とりあえずビール」と注文したら「そのビールはアサヒですか、キリンビールですか」と同じような話です。それだけＰＣが普及したのでししょうか。

また、ClickOnceアプリケーションやデータファイルも＜ユーザー名＞My Documentsの下の階層にあり、違うユーザ名でログオンされるとアプリケーションの起動すら出来ません。

１．メールの添付ファイル保存場所は一定しているのか
２．メールの添付ファイルは特殊な圧縮ファイルで、解凍方法が分らないこと

ご指摘の通り、目の前に目的があって、その目的を達成するためだけではなく、もっと広い意味でそれぞれのテクノロジーに対する価値や応用範囲、又はビジネスモデルまでをも構想できるようになりたいと考えています。いつも適切なご指摘をいただき感謝しています。

ぴんふさんの書き込み (2008-06-27 23:42) より:
「任意のフォルダ」とは書きましたが、「適当な場所」とは書いていません。
意味的には変わらないかもしれませんが、「任意のフォルダ」の意図も私は提示しました。私の提示した意図をふまえた上での言い換えなのでしょうか・・・。

また、ClickOnceアプリケーションやデータファイルも＜ユーザー名＞My Documentsの下の階層にあり、違うユーザ名でログオンされるとアプリケーションの起動すら出来ません。オンラインなら別ユーザでログオンしても該当のWebサイトにアクセスすれば起動すると思ったのですが、違うのですか？（当然実行ファイル群は別ユーザのMy Documentsの下のものになるのでしょうが）

１．はメーラーから添付ファイルを保存しようとしたときのデフォルトのフォルダが一定かどうかが疑問なのでしょうか？私の提案では「メーラーから任意のフォルダに保存」としました。ユーザがメーラーからどのフォルダに添付ファイルを保存するかはユーザ次第である（メーラーからは基本的にどこにでも保存が可能だから）ので、アプリから保存したフォルダを指定し、そこから取得したファイルでアプリの期待するフォルダに上書きすればヒューマンエラーが減るかなと考えたからです。

２．は調べた上で「分からない」とおっしゃっているのでしょうか？

以下は蛇足（だけど重要だと思うが）
なんか・・・悪いシステム開発、いわゆる「デスマーチ」とか「尻に火のついたプロジェクト」の典型になりつつあるように見えます。仮にもっと規模が大きくて複数人のチームによる開発だったら倒れる人が出そうな。。。

ぴんふさんの蛇足は外れていると思います。以上

'---Data_Fileにmdf やmdbのデータファイル保存先をフルパスで設定
Dim Data_File As String = ApplicationDeployment.CurrentDeployment. _
DataDirectory & "\Application1.mdb"

'-メール送信されたデータファイルの一時保存フォルダをMy Documents直下に作成
（フォルダ名：Project1）
Project1_Path = Environment.GetFolderPath(Environment. _
SpecialFolder.Personal) & "\Project1"
System.IO.Directory.CreateDirectory(Project1_Path)


'---Project1フォルダにApplication1.gzが存在すれば解凍してData_Fileフルパスに上書き保存
Dim gzipFile As String = Project1_Path & "\Application1.gz"
If System.IO.File.Exists(gzipFile) = True Then
Back_restore(gzipFile, Data_File) '-------解凍プロシージャへ
System.IO.File.Delete(gzipFile) '----------圧縮ファイルを削除
End If