検索結果

下記、20秒置きにフォルダを監視し、変化があればバックアップのファイルを発動させるマクロを組みました。エクセルを開くとマクロは動くようにしています。初めは動いているのですが、途中から動きません。監視してるフォルダに、ファイルを増やしても、反応がありません。どこかおかしな点、わかる方教えていただけないでしょうか。 Option Explicit Dim previousFiles As Collection Sub StartMonitoring() ' 初回実行時にファイルリストを取得 Set previousFiles = GetFileList() Application.OnTime Now + TimeValue("00:00:20"), "MonitorFolder" End Sub Sub MonitorFolder() Dim currentFiles As Collection Dim fileName As Variant Dim fileAdded As Boolean Dim file As Variant Dim fileArray() As Variant Dim i As Integer fileAdded = False Set currentFiles = GetFileList() ' Collection を配列に変換 ReDim fileArray(1 To currentFiles.Count) i = 1 For Each file In currentFiles fileArray(i) = file i = i + 1 Next file ' 現在のファイルリストと以前のファイルリストを比較 For Each file In fileArray On Error Resume Next If IsEmpty(previousFiles(file)) Then fileAdded = True Exit For End If On Error GoTo 0 Next file If fileAdded Then ExecuteBatchFile MsgBox "File added detected. Batch file executed." End If Function GetFileList() As Collection Dim folderPath As String Dim fileSystem As Object Dim folder As Object Dim file As Object Dim fileList As New Collection folderPath = "C:\Path\To\Your\Folder" ' 監視するフォルダのパスを設定 Set fileSystem = CreateObject("Scripting.FileSystemObject") Set folder = fileSystem.GetFolder(folderPath) For Each file In folder.Files fileList.Add file.Name, file.Name Next file Set GetFileList = fileList End Function Sub ExecuteBatchFile() Dim batchFilePath As String batchFilePath = "C:\Path\To\BackupScript.bat" ' バッチファイルのパスを設定 Shell batchFilePath, vbNormalFocus End Sub ' 現在のファイルリストを保存 Set previousFiles = currentFiles ' 再度監視を開始 StartMonitoring End Sub Private Sub Workbook_Open() StartMonitoring End Sub

agletを使ってプログラムを作っています。 以下のソースの部分で毎回コンパイルできません。 エラー内容は ”例外　com.ibm.aglet.InvalidAgletExceotion は 　　　対応するtry文の本体ではスローされません。 ｝　catch (InvilidAgletException iae) { " です。 下にソースを載せます。 public String getPath() { try { rPath = (String)getAgletContext().getProperty( "aglets.tahiti.FileSystem.read"); } catch (InvalidAgletException iae) { } return rPath; } 作ろうとしているのはパスを送るためのプログラムです。 何かよい方法があれば教えてください。 お願いします。

ポータブルデバイス　WPD FileSystem Volume　Driver　このデバイスは開始できません「コード１０」　場所　UMBus　Enomerator　、又デバイスとプリンターにも同様の注意マークが付いております。現在プリンター操作面では問題が出ていないようです。思い当たる節として、USB端子をバファローの無線子機WMR-300の電源として接続して、そのまま取り外したことがあります。当方パソコンに詳しくありません。解除する対応策、お教えお願い致します。

現在、ExcelファイルVBAにて別のExcelファイルを開こうとしています。FileSystemオブジェクトを利用してオープンはできるのですが、当然そのファイルをどなたかが利用していると「書き込みできません」とのメッセージが出てきます。これを回避するためにオープンするExcelファイルがすでに誰かに開かれているかを判定できる方法はございませんか？WSHやAPIを利用してもかまいません。以下にロジックを書いておきますので、どうかよろしくお願いいたします。緊急度は大変高いです。 'ErrorFileフォルダ内のエクセルファイルが存在するかを判定 Do Until fs.FileExists(buff) = False 'ErrorFile内のエクセルファイルを取得 Set f = fs.GetFile(buff) 'FileSystemオブジェクトでErrorFile\logフォルダ内の同一名称ファイルが存在するかを判定 If fs.FileExists(f.ParentFolder & "\log\" & f.Name) = True Then '存在していたら、ファイルを削除　←この部分で誰かがファイルを開いているとエラー　 　　　　　　fs.DeleteFile f.ParentFolder & "\log\" & f.Name End If 'ErrorFileフォルダ内のファイルをErrorFile\logフォルダに移動 fs.MoveFile f.Path, f.ParentFolder & "\log\" & f.Name 'マクロが動作しているパスにErrorFileフォルダ内のエクセルファイル名をフルパスで取得 buff = ActiveWorkbook.Path & "\ErrorFile\" & Dir("ErrorFile/*.xls", vbSystem) Loop どうか、解決策を返信いただければ幸いです。

フェドラコア6リナックスをサーバーとして運用していました。 知識はネット上の文献を見ながらセットアップできる程度です。 通常のPCのため週末にチップセットのヒートシンクが熱で取れてしまったらしく月曜日に完全にフリーズしていました。 その後起動すると Error16:Inconsistent filesystem structure Press any key to continue と出ます。 その後キーを押してもまったく起動しなくなり困っています。 解決法は何かないでしょうか？ よろしくお願いいたします。

Iphoneをパソコンに繋いでItunesには認識されますが、パソコン上にデバイスとして認識されません Itunesソフトの再インストールも行いましたが結果は同じです デバイスマネージャー上にはポータブルデバイスで「microsoft WPD Filesystem Volume Driver」及び「デジタルスチルカメラ」に！マークが付いています iphoneで撮った写真や映像が移せなくて困っております 対策教えてください

始めまして宜しくお願いいたします。 haru といいます。 環境 Fedora core2 ファイルシステム ext3 質問の内容は df コマンドを打ったとき このような表示になったのですが Filesystem 1K-ブロック 使用 使用可 使用% マウント位置 /dev/hda2 40313996 3921284 34344828 11% /home この 使用% の パーセントはどのような計算で出てくるのでしょうか? なにか気づかれた方 アドバイス宜しくお願いします。

phpMyAdimnとコマンドラインで現在の文字コードを取得すると結果がことなる。 文字コードを調べる為に「show variables like 'char%';」を phpMyAdminLとコマンドラインで上で流したのですが結果がことなります。 phpMyAdmin character_set_client utf8 character_set_connection sjis character_set_database latin1 character_set_filesystem binary character_set_results utf8 character_set_server sjis character_set_system utf8 character_sets_dir /usr/share/mysql/charsets/ コマンドライン character_set_client | sjis | character_set_connection | sjis | character_set_database | sjis | character_set_filesystem | binary | character_set_results | sjis | character_set_server | sjis | character_set_system | utf8 | character_sets_dir | /usr/share/mysql/charsets/ my.cnfで下記の設定を行っております。 [mysqld] character-set-server = sjis collation-server = ujis_japanese_ci skip-character-set-client-handshake [mysql] default-character-set=sjis [client] default-character-set=sjis 日本語文字も正しく登録、更新できphpMyAdminでも正しく表示されていると思うのですが phpMyAdminで結果が異なるのが気になり質問させていただきました。 phpMyAdminでの結果は無視しても問題ないのでしょうか。 環境 CentOs 5.7 Mysql 5.5.17 phpMyAdimn 3.4.7 php 5.3

質問ばかりでもうしわけないのですが タイトルにあるようにコピーの状況を プログレスバーで表示できたらなと思い作成したのですが うまく動きません。 プログレスバー自身単独では動くのですがコピーと合わせると フリーズしてしまいます。 プログラミング経験と発想力が乏しいのでご教授いただけたら幸いです Private Sub Bt_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_1.Click Dim fname1 As String = "C:\フォルダ名A" Dim fname2 As String = "C:\フォルダ名B" Dim ber1 As Integer If IO.Directory.Exists(fname1) = True Then Me.Lb_1.Text = "テキスト文字" For ber1 = 0 To 20 Me.ProgressBar1.Value = ber1 System.IO.File.Copy("コピー元テキストファイルA", "コピー先テキストファイルA", True) My.Computer.FileSystem.CopyDirectory("コピー元フォルダA", "コピー先フォルダA", True) My.Computer.FileSystem.CopyDirectory("コピー元フォルダB", "コピー先フォルダB", True) Next ber1 If IO.Directory.Exists(fname2) = True Then System.IO.File.Copy("コピー元ファイルB", "コピー先ファイルB", True) End If MessageBox.Show("終了報告テキスト", "タブ名") ' System.IO.Directory.Delete("コピー元", True) Me.ProgressBar1.Value = 0 Application.Exit() こんな感じで作成しております。 ファイル自身が１GBぐらいあるので フリーズしていないかプログレスバーや％表示でしらせたいので 教えていただけると助かります。 よろしくお願いします。

Error mounting /dev/sdc1 at /run/media/kouzou/51D711784E198DBA: Command-line `mount -t "ntfs" -o "uhelper=udisks2,nodev,nosuid,uid=1000,gid=1000,dmask=0077,fmask=0177" "/dev/sdc1" "/run/media/kouzou/51D711784E198DBA"' exited with non-zero exit status 32: mount: unknown filesystem type 'ntfs' 上記のようなメッセージが出てマウントできません。 何かいい方法はないでしょうか？ ご回答のほど、宜しく御願い申し上げます。

Fedora Core 5で、/etc/fstabを書き間違えてしまいました。 おかげで、起動できません。 rootのパスを入れるかctrl+Dでコンティニューという表示が出たまま固まります。ctrl+Dを押すと、再起動し、同じところで止まります。 rootパスを入れ、「Repair filesystem 1 #」と出て「vi /etc/fstab」で書き換えようとしたのですが、リードオンリーとなって書き換えが出来ません。 どうしたらいいでしょうか?

突然win-xp-pro-sp3が起動しなくなり、画面には ｃｈｅcking filesystem on c:the type of the file system. one of your disks need to be checked for consistency. you may cancel the disk ,but it is strongly recommended that you continue. windous will now check the disk. chkdsk is verifying files (stage1of3)・・・ file record segment 81192 is unreadable. 81193 81194 81194 81195 ・ 　　　　　　　　　　　　　　　　 ・ 　　　　　　　　　となってしまいます,どうしたらよろしいでしょうか,宜しくお願いいたします。 ｍｂ:a-open ａｘ4pe-max

KNOPPIX 5.1 で Hard Disk [hda1] を開こうとしたところ、 「デバイスをマウントできませんでした。 　エラー: mount: I could not determine the filesystem type, and none was specified」 とメッセージが表示され、開くことができません。 Windows XP Professional で boot.ini に異常が出たため是正したいのですが、 Hard Disk を開くにはどうすれば良いのでしょうか？ ファイルシステムは NTFS、 KNOPPIX 5.1.1 です。 ご教示よろしくお願い致します。

購入して１年ほどのパソコンが起動しなくなってしまいました。 knoppixを使って中のデータなどを救出してから修理に出したいのですが、knoppixのDVDを使用して起動を試みたのですが、ペンギンの画面画出て RUNNING Linux Kernel 2.6.19. Total memory available 3359996KK,Memory free:3344564KB. Can't find knoppix filesystem,sorry. Dropping you to a (very limited) shell. Pless reset button to quit. Additional builtin commands avaliable: cat mount umount insmod rmmod lsmod Knoppix# というエラーが出て、起動が出来ませんでした。 自分なりにネットで「Can't find knoppix filesystem」というエラーについての対処法を調べ、 『knoppix26 nodma』 『linux26 nodma』 『knoppix nodma lang=ja』 『knoppix dma lang=ja』 『knopix xmodule=fbdev』 など入れてみましたが、全くダメでした。 とにかく中に入っているお気に入りなどのちょっとしたデータだけ抜き取れればそれで良いのですが、他に起動させる方法はないでしょうか？ パソコンの事はあまりわからず、出来るだけ噛み砕いて教えて頂けると助かります。 よろしくお願い致します。 ちなみにknoppixのCDは、knoppixについて書かれた本に付属したものです。

現在VB2008でプログラムを組んでいるのですが、(VB初心者です) 現在の壁紙を取得し、そのファイルをコピーしてCドライブ直下に保存する方法がわかりません。 壁紙の取得はできました（sPathにアドレスが出る）　ただそれをコピーできません。 以下のようなエラーが出ます。 パスに無効な文字が含まれています。 ソースコードは以下の通りです。 Dim sPath As New System.String(" ", MAX_PATH + 1) SystemParametersInfo(SPI_GETDESKWALLPAPER, MAX_PATH, sPath, 0) My.Computer.FileSystem.CopyFile(sPath, "C:\Test.bmp", True) 原因不明でよくわかりません。　教えてくださいお願いします。

TurboLinux7 workstationを使っているのですが 電源を入れると正常に立ちあがらなくなる現象が出てしまいました。 現状を確認してみたところOSが起動して各種設定を読み込む画面で まず"Mounting proc filesystem : mount point /proc does not exit" でNGが返ってきており Give root password for maintenance : を聞かれたのでrootで入った ところ(Repair filesystem)1#とプロンプトが返ってきました。 dfでパーテイションを確認しましたが /dev/hda1 df:'/proc':No such file or directory /dev/hda3 と返ってきました。上記NGからも読み込み時に/procがマウントできていない為に起きた現象ではないかと思われます。（実際cd /にprocがありませんでした） fsckコマンドにより/dev/hda1,/dev/hda3にファイルチェックをかけて 再起動しましたが現状変わらずで、それならばturbolinuxのHPからレス キューファイル(ISOファイル)からレスキューCDを作ってCD起動からレスキューモードで立ち上げた後にもう一度fsckでのファイルチェックを/dev/hda1,/dev/hda2./dev/hda3にて行いましたがその後も現状変わらず（レスキューモードではcd /にprocはありました）でした。 fsckで修復せずという事は何か物理的にHDがまずいのでしょうか？ 何か復旧の為にできることは無いでしょうか、御力を御貸し頂きたく思います。

MySQLにPHPでデータを入力しています。 utf8でデータを送信しています。 どうも　MySQLの設定がうまくできてないようです。 どこを　どうやって変えたらよいのでしょうか？ mysql> show variables like 'char%'; +----------------------+-----------------------+ |　Variable_name　　　　　　　　|　Value　　　　　　　　　　　　　| +----------------------+-----------------------+ |　character_set_client　　　　|　cp932　　　　　　　　　　　　　| |　character_set_connection　 |　cp932　　　　　　　　　　　　　| |　character_set_database　　　|　latin1　　　　　　　　　　　　　| |　character_set_filesystem　　|　binary　　　　　　　　　　　　　| |　character_set_results　　|　cp932　　　　　　　　　　　　　| |　character_set_server　　　|　latin1　　　　　　　　　　　　　| |　character_set_system　　　|　utf8　　　　　　　　　　　　　　| |　character_sets_dir　　　　　|　C:\xampp\mysql\share\charsets\　| +----------------------+-----------------------+

ファイルを作成しようとすると、"E297:スワップファイルの書き込みエラーです"と出たので、 容量がフルだったので、ファイル削除したのですが、Availが0から変化なしです。 Filesystem Size Used Avail Use% /dev/vda3 97G 93G 0 100% 再度ファイル作成を試みましたが、同じエラーが出ました。 しかし、rootでログインすると、ファイル作成できました。 何が原因なのでしょうか？ ちなみに、サーバーは、さくらＶＰＳです。 よろしくお願いします。

WindowsXPが起動出来なくなり、KNOPPIXを使ってデータを救済したいのですが上手くいきません。 「knoppix_v5.1.1」から起動するとHDDが認識されました。 しかしデータを参照しようとすると 「Could not mount device. The reported error was: mount: I could not determine the filesystem type, and none was specified.」 と表示され、HDD内のデータを参照する事ができません。 パソコンに詳しくないため、 ぜひ対応方法を教えて頂けないでしょうか？ よろしくお願いします。

excel　ＶＢＡ 下記のようなｗｗｗｗｗ.xlsの形の文字列ｘで、 ｘは英字　数字_数字　英字.klsの形式で_はひとつだけ ｘの処理で 質問１　文字変数Ｘを処理して変数ｙを求めるマクロコードのヒントを 　　　　（つまり.xlsを除き、続いて文字や_を取り去る） 質問２　文字変数Ｘを処理して変数ｚを求めるマクロコードのヒントを 　　　　（つまり文字のみを取り去る） (例）ｘ＝FILE20041211_1212system.xls 　　　ｙ＝FILEsystem 　　　ｚ＝20041211_1212.xls