Ｐａｇｅ 427 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼属性の変更をしたいのですが ひで 02/12/4(水) 9:23 ┗Re:属性の変更をしたいのですが ichinose 02/12/4(水) 10:02 ┗Re:属性の変更をしたいのですが ひで 02/12/4(水) 11:16 ─────────────────────────────────────── ■題名 ： 属性の変更をしたいのですが ■名前 ： ひで ■日付 ： 02/12/4(水) 9:23 -------------------------------------------------------------------------
| みなさん おはようございます。 質問です、よろしくお願いします。 aaaというファルダのなかに、いくつかのフォルダやｃｓｖﾌｧｲﾙとｘｌｓブックが 任意の数だけあります、これらの属性が今、読み取り専用になっています これを全て読み取り専用を解除してアーカイブにしたいのです。 １つずつの変更は手動で出来るのですが、いっきにaaaの中全てを 変更するには、どうしたらよいでしょうか？ マクロ記録もやってみたのですが、ファイル→プロパティ→ファイルの情報 で変更しようとしたとこ、出来ませんでした。 win95 ｴｸｾﾙ97 です。 |
| ▼ひで さん： おはようございます。 >aaaというファルダのなかに、いくつかのフォルダやｃｓｖﾌｧｲﾙとｘｌｓブックが >任意の数だけあります、これらの属性が今、読み取り専用になっています >これを全て読み取り専用を解除してアーカイブにしたいのです。 > >１つずつの変更は手動で出来るのですが、いっきにaaaの中全てを >変更するには、どうしたらよいでしょうか？ > >マクロ記録もやってみたのですが、ファイル→プロパティ→ファイルの情報 >で変更しようとしたとこ、出来ませんでした。 97で確認していませんが、以下ではどうですか？ '============================== public retcode as long '============================== sub test() Dim pathnm As String Dim setnm As String pathnm = "d:\aaa\" setnm = Dir$(pathnm & "*.*") Do While setnm <> "" Call setflat(pathnm & setnm) If retcode <> 0 Then MsgBox Error(retcode) Stop End If setnm = Dir$() Loop MsgBox "属性セット完了" end sub '===================================== Sub setflat(setnm As String) On Error GoTo err_setflat SetAttr setnm, vbArchive retcode = 0 ret_setflat: On Error GoTo 0 Exit Sub err_setflat: retcode = Err Resume ret_setflat End Sub |
| ▼ichinose さん こんにちは 97で確認したところ、ＯＫでした たすかります ありがとうございました！ |