Content-Length: 216719 | pFad | http://b.hatena.ne.jp/yumu19/VB/
読み取り専用ファイルがあるときでもフォルダを削除する
読み取り専用ファイルがあるときでもフォルダを削除する「フォルダを作成、削除、移動（名前の変更）する」で説明したように、Directory.Deleteメソッドを使うと、フォルダとそれ以下にあるすべてのファイルとフォルダを削除することができます。しかしこの時、削除するフォルダ以下に読み取り専用属性のファイルやフォルダがあると、例外UnauthorizedAccessExceptionをスローして、削除に失敗します。ここでは、この対策について説明します。 削除する前に読み取り専用属性を外す方法Directory.Deleteメソッドを呼び出す前に、削除するフォルダ以下にあるすべてのファイルとフォルダの読み取り専用属性を外しておくという方法が考えられます。以下に示すDeleteDirectoryメソッドでは、フォルダを削除する前に、そのフォルダ以下のすべてのファイルとフォルダを調べ、読み取り専用
VB6 - ファイルの存在を確認する
VB6 では、Dir 関数を使用するか、FileSystemObject (FSO) の FileExists メソッドを使用します。Dir 関数は 255 バイトを超えるパスには対応しておりません。必ず、FileSystemObject の FileExists メソッドを使用するようにしてください。 FileSystemObject を使用する場合は、[プロジェクト] メニューの [参照設定] を選択して「Microsoft Scripting Runtime」にチェックを付けてください。 VB6.0 以前 ' FileSystemObject (FSO) の新しいインスタンスを生成する Dim cFso As FileSystemObject Set cFso = New FileSystemObject ' ファイルが存在しているかどうか確認する If cFso.FileExist
FileExists()でワイルドカードが使えない。その代替方法 - Windows Script Programming
FileSystemObjectのCopyFile()、MoveFile()、DeleteFile()ではワイルドカードが使えるのに、FileExists()では使えません。:-( 以下のような代替方法は、ワイルドカード相当の判定式を作るのが面倒なのと、ファイル数の多いフォルダでは性能も遅そうです。:-( For Each File In Folder.Files If ワイルドカード相当の判定式 Then Exit For Next そこで、ワイルドカードが使えるCopyFile()、MoveFile()で代替できないものか？ Function FileExists(Spec) Dim fso Dim ParentFolderName Set fso=CreateObject("Scripting.FileSystemObject") ParentFolderName=fso.GetPa
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Fetched URL: http://b.hatena.ne.jp/yumu19/VB/
Alternative Proxies:
http://homepage2.nifty.com/sak/w_sak3/doc/sysbrd/sak3vb.htm
VBA - アプリケーションとしてのVBA
