- ベストアンサー
サーバーにバックアップを作りたいのですが書き込みが出来ない理由と解決方法
Bastingyarnの回答
- Bastingyarn
- ベストアンサー率75% (3/4)
アクセス権でしょうが フォルダオプションで簡易ファイルの共有を使用するのチェックを外してから 該当フォルダのプロパティよりIISサービスが使用しているアカウントで アクセス権を付与してあげるとよいかと CopyFileの前に「複写しました」とするより 複写後に出力するのがいいかなと蛇足です。 On Error Resume Next fso.CopyFile frname, toname, True Select Case Err.Number Case 0 Response.Write "ハウス.mdbを複写しました。<BR>" Case Else Response.Write "ハウス.mdbの複写が失敗しました。<BR>" End Select On Error Goto 0
関連するQ&A
- VBA：2つのCSVファイルを開きたいです。
エクセル2010のVBAにてCSVファイルを開き結合させるプログラムを組もうとしているのですが、2つ目のCSVファイルを開こうとすると、何故かエラーが出てしまいます。 -------------------------------------------------------------------------------- 1つ目 Sub mobile_FileSearch(Path As String) 'test.csvのデータを検索して開く Dim FSO As Object, Folder As Variant, File As Variant Set FSO = CreateObject("Scripting.FileSystemObject") For Each Folder In FSO.GetFolder(Path).SubFolders Call mobile_FileSearch(Folder.Path) Next Folder For Each File In FSO.GetFolder(Path).Files If File.Name = "test.csv" Then Workbooks.Open ("test.csv") End If Next File End Sub ---------------------------------------------------------------------------- 2つ目 Sub local_FileSearch(Path As String) 'bbb.csvのデータを検索して開く Dim FSO As Object, Folder As Variant, File As Variant Set FSO = CreateObject("Scripting.FileSystemObject") For Each Folder In FSO.GetFolder(Path).SubFolders Call local_FileSearch(Folder.Path) Next Folder For Each File In FSO.GetFolder(Path).Files If File.Name = "bbb.csv" Then Workbooks.Open ("bbb.csv")'←ここでエラー End If Next File End Sub ------------------------------------------------------------------------ まったく同じプログラムで、csvファイル名だけ変えただけで実行時エラー1004が出てしまいます。 一体全体何が問題なのでしょうか？
- ベストアンサー
- その他（プログラミング・開発）
- 【file_exists】ファイルが存在するのに、存在しないとなります
いつもお世話になっております。 ■環境■ PHP５ Windows ■状況■ フォルダ内にtextファイルが20～45個入っております（個数は状況によって変わります）。 ■目的■ フォルダのtextファイルの中身を参照し、各textファイルに必ず含まれる数字を取り出す。でございます。 ■方法■ （１）フォルダにあるファイル名を取りだす （２）fopenで読み込み（ｒ）で全部を見、数字を別ファイルに書き込む と考えたのですが、（１）で.、..というよくわからないファイルも一緒に出てきてしまったので、file_existsでファイルが存在するか確認してから（２）に移ろうとお思いました。 が、ファイル名は全部ないといわれてしまうのです。 しかしfile_exists（$filename)の$filenameを表示させ、ブラウザにこぴぺするとtextデータは出てきます。 以下プログラムの一部です ※$cは（１）で得たフォルダ内にあるファイル名をループでまわしている値です for($b=0;$b<$a;$b++){ $filename="C:/Inetpub/wwwroot/php/kore/1/".$c; if (file_exists($filename)) { print "あるよ<BR>"; } else { print "ないよ<BR>"; } } 結果は（一部です） C:/Inetpub/wwwroot/php/kore/1/.text⇒ないよ C:/Inetpub/wwwroot/php/kore/1/..text⇒ないよ C:/Inetpub/wwwroot/php/kore/1/0155442A5.txt⇒ないよ C:/Inetpub/wwwroot/php/kore/1/01762602A.txt⇒ないよ です。 上記の C:/Inetpub/wwwroot/php/kore/1/01762602A.txt C:/Inetpub/wwwroot/php/kore/1/0155442A5.txt は確実に存在しております。 どこがおかしいのか、ご教授いただければ幸いです よろしくお願いいたします
- ベストアンサー
- PHP
- VBAでフォルダ内のファイルの一覧表を作りたい
お世話になります。 表題につき過去にここで教わって（https://okwave.jp/qa/q10129448.html） 毎月数千件のPDFファイルの一覧を作成して非常に助かっているのですが、最近対象ファイルにエクセルやワードもリストアップしたくコードの一部に対象ファイルの拡張子を付け加えてみたのですが、の追加により検索対象フォルダが第1階層までしか検索しなくなってしまっていることに気付きました。 どこを修正すれば良いのでしょう。 ★修正前コード（指定のフォルダ内の子や孫フォルダまで検索） 'PDFファイルを個々に取得(対象拡張子) For Each objFile In FSO.GetFolder(path).Files If UCase(FSO.GetExtensionName(objFile.path)) = "PDF" Then execute objFile End If Next ☆修正後（親フォルダしか検索しなくなった） 'PDFファイルを個々に取得(対象拡張子) For Each objFile In FSO.GetFolder(path).Files If UCase(FSO.GetExtensionName(objFile.path)) = "DOCX" Or _ UCase(FSO.GetExtensionName(objFile.path)) = "XLSM" Or _ UCase(FSO.GetExtensionName(objFile.path)) = "PDF" Then execute objFile End If Next
- ベストアンサー
- Excel（エクセル）
- FSOを使いサブフォルダのファイル操作
同じ階層のサブフォルダにxlsm入るが入っており、VBAによりモジュールを解放しようと試みています。 まずは、FSOを使ってサブフォルダにアクセスしようとしましたが、下から6行目でエラー（424 オブジェクトが必要です）が出てしまい、解決できませんので、ご教示いただけないでしょうか？ よろしくお願いします Sub DeleteMain() With Application.FileDialog(msoFileDialogFolderPicker) If Not .Show Then Exit Sub Call DeleteSub(folderPath:=.SelectedItems(1)) End With End Sub Sub DeleteSub(folderPath As String, Optional mycount As Long = 0) Dim fso As Object, myFolders As Object, myfile As Object Set fso = CreateObject("Scripting.FileSystemObject") Set myFolders = fso.GetFolder(folderPath).SubFolders For Each myfile In fso.GetFolder(folderPath).Files mycount = mycount + 1 ' Cells(mycount, 1) = myfile.Path Debug.Print myfile.Path Next For Each myFolders In fso.GetFolder(folder.Path).SubFolders Call DeleteSub(myFolder.Path, mycount) Next Set fso = Nothing Set myFolders = Nothing End Sub
- ベストアンサー
- Excel（エクセル）
- FileSystemObjectでのパス名の取得
お世話になります。 VBScriptでフォルダ内のファイルコピーのスクリプトを作っているのですが、FileSystemObjectを使用してネットワーク共有してある日本語のフォルダ名（Getfolder）を取得すると文字化けして取得できません。 Dim fso,fo set fso = CreateObject("Scripting.FileSystemObject") set fo = fso.getfolder(フォルダパス) WScript.Echo fo.path <---フォルダのパスを表示 なにか解決する方法はありますでしょうか？ ちなみに、ローカルドライブの日本語フォルダは正常に取得できました。
- 締切済み
- Visual Basic
- サーバーからクライアントのMACアドレスを取得
ASPを使用して、サーバーからクライアント側の ネット情報などを取得したいのですが、できるのでしょうか？ 今現在WMIを使用してクライアントからサーバーのMACアドレスを 取得できているのですが、逆の事もできるのではと考えました。 <HTML> <HEAD> <TITLE>MACアドレスの表示</TITLE> </HEAD> <BODY> <Form method="post" name="form1"> <input type="hidden" name="h_MACaddress" value="<%= MACA %>"> <% Dim MACA ConnectString = "winmgmts:{impersonationLevel=impersonate}!root\cimv2" Query = "SELECT MACaddress " Query = Query & " FROM Win32_NetworkAdapterConfiguration" Query = Query & " WHERE IPEnabled=TRUE" On Error Resume Next Set IPConfigSet = GetObject( ConnectString ).ExecQuery( Query ) if Err <> 0 Then 'エラー発生表示 if Err.Number = -2147217405 then Response.Write "Error 0x80041003: Access Denied: " Response.Write "Check permissions and file security for this ASP file." Response.Write "<BR>" else Response.Write "エラー説明: " Response.Write Err.Description Response.Write "エラー番号: " Response.Write Err.Number Response.Write "<BR>" end if end if For each IPConfig in IPConfigSet 'MACアドレス取得処理 Response.Write("MACADDRESS: ") Response.Write(IPConfig.MACaddress & "<br>") MACA = IPConfig.MACaddress Next 'Response.write("aaa:" & MACA & "<BR>") 'MACアドレスの変数 Response.Write "<BR>" if Err <> 0 Then 'エラー発生表示 Response.Write "エラー説明: " Response.Write Err.Description Response.Write "エラー番号: " Response.Write Err.Number Response.Write "<BR>" end if %> </BODY> </HTML> プログラムはこのようなものを使用しております。 できるできないだけでも知りたいので、 分かる方いらっしゃいましたら教えていただけますでしょうか？ 宜しく御願い致します。
- ベストアンサー
- Microsoft ASP
- VBScriptでファイル検索
こんにちは。 Ｄドライブのどこかにある「あいうえお.xls」ファイルのパス をメッセージ表示するようなスクリプトを作りましたが、上手 く表示されません。どこに不具合があるのか、ご教授ください。 お願いいたします。 Option Explicit Dim FSO,File,SubFolder Set FSO = CreateObject("Scripting.FileSystemObject") ShowSubfolders FSO.GetFolder("D:\") Sub ShowSubFolders(Folder) For Each File in Folder.Files If File.Name = "あいうえお.xls" then Wscript.Echo File.path End If Next For Each Subfolder in Folder.SubFolders ShowSubFolders Subfolder Next Set FSO = Nothing End Sub
- ベストアンサー
- その他（プログラミング・開発）
- マクロで質問です
下記のようなマクロで現在はマクロコード内にフォルダのアドレスを書いていますが これをダイアログを開いてフォルダを選択できるようにするには どうすればよいでしょうか？ Sub Sample10() Call FileSearch("V:\個人\飯塚\マクロ\RawData2") End Sub Sub FileSearch(Path As String) Application.ScreenUpdating = False Dim FSO As Object, Folder As Variant, File As Variant Set FSO = CreateObject("Scripting.FileSystemObject") For Each Folder In FSO.GetFolder(Path).SubFolders Call FileSearch(Folder.Path) Next Folder For Each File In FSO.GetFolder(Path).Files If File.Name = "RawData" Then Workbooks.Open fld & File, Format:=2 Range("B1:B180").Select Application.CutCopyMode = False Selection.Copy Application.DisplayAlerts = False ActiveWindow.Close Application.DisplayAlerts = True Range("f2").Select ActiveSheet.Paste ActiveSheet.Next.Activate End If Next File End Sub
- ベストアンサー
- Excel（エクセル）
- ACCESSのバックアップ
ＡＣＣＥＳＳを閉じる際に自分自身をコピー、 リネームしてバックアップを取りたいのです。 ・BackUp20080108.mdb ←バックアップを取る際に日付を入れる。 ・３日分までバックアップをとり、４日目を取る時は １日目のものを消す。 【１日目】BackUp20080105.mdb 【２日目】BackUp20080106.mdb 【３日目】BackUp20080107.mdb 【４日目】BackUp20080108.mdb ←これを作る際に【１日目】を削除 とりあえずコピー、削除は出来ましたが、 フォルダ内にあるファイルの識別をどうしてよいのかわかりません。 なにかサンプル、同じようなものを作った事のある方がおりましたら ご指導お願い致します。 Dim fs As Object '自身をコピー Set fs = CreateObject("Scripting.FileSystemObject") fs.CopyFile CurrentProject.Path & "\" & CurrentProject.Name, _ CurrentProject.Path & "\" & "BackUp" & Format$(Date, "yyyymmdd") & ".mdb" 'ファイル削除 Set fs = CreateObject("Scripting.FileSystemObject") fs.deleteFile CurrentProject.Path & "\" & CurrentProject.Path & "\" & "BackUp" & Format$(Date, "yyyymmdd") & ".mdb" set fs=Nothing End Sub
- ベストアンサー
- その他([技術者向] コンピューター)
- EXCEL VBAでフォルダ容量の測定
お世話になります． EXCELでフォルダの容量を自動で測量するツールを作成中です． 大まかな概要としては，１枚目のシートのセルにあらかじめ測定対象となるフォルダのパスを記述しておき， そのパスをもとに２枚目のシートに測定した容量を出力したいと考えています． 作成中のソースから抜粋させて頂きますが，以下の部分が上手くいきません． ＜＜作成中のソース＞＞ Sub FolderSize_Count() Dim FSO As Variant Set FSO = CreateObject("Scripting.FileSystemObject") Dim Path As String With Sheets("Sheet2") Path = Application.Worksheets("sheet1").Range("A1").Value .Cells(1, 1) = FSO.GetFolder("Path").Size End With End Sub ＜＜不明点＞＞ FSO.GetFolder("Path").Size の"Path"の部分には対象フォルダのパスを記述する必要があるが， 別シートから取得した値を" "に反映させる記述が分かりません． ちなみに Application.Worksheets("sheet1").Range("A1").Valueにて，対象フォルダのパスを取得出来ていることと， FSO.GetFolder("C:\test").Sizeにて，Cドライブ直下のtestフォルダの容量を取得できることは確認済みです． お手数お掛けいたしますが，有識者の方，ご教授頂ければ幸いです． 以上，よろしくお願いいたします．
- ベストアンサー
- Visual Basic