ファイルを開く前に状況を確認したい。

質問

こんにちわ。

ＶＢで定期的にアップロードされてくるテキストファイルを処理するツールを作成しています。

Ｗｉｎ２Ｋ環境で、クライアントからＦＴＰ転送であるテキストファイルが転送されてきます。

ＶＢで作成中のツールでは１分おきにファイルの有無を確認しています。

当初はうまく動いていましたがたまにエラーが出るようになりました。

いろいろ状況を見ていますと、ファイル転送と同タイミングでファイルを開いた場合に起こっているようです。

ＦＴＰ転送の有無にかかわらず、該当するファイルが自分自身のプログラム以外から開かれているということをチェックする方法はないですか？

開いていればスキップすると言う方法でこのエラーを回避したいのですが・・・。

お手数をお掛けいたしますが何卒お願い致します。

回答No.11

1050 円（@1050YEN）

話が原点に戻りそうですが、、、、

#10さん
strSQL = "SELECT * FROM Win32_Process where name = 'ftp.exe'"
Wscript.Echo GetObject("winmgmts:").ExecQuery(strSQL).Count
ということをしたいのですか？
http://okweb.jp/kotaeru.php3?q=655810

私も先ほどの#8でのスクリプトのどこがWin2Kでのサポート外に該当するかわかりませんが、上記スクリプトは2K環境でも動きました。

しかし、、、
FTPでアプロード中に、サーバ側でftp.exeを起動しているとは限らないのではないですか？
質問者は
・サーバ側の$ftproot以下のファイルを監視する
・見つかったファイルが、受信中か完了かを知りたい(サーバ側で)
というのではないですか？

私が知っている限りですが[ftp.exe]は単なるクライアントアプリだと思うのですが、、、
サーバでは、受信をサービス(inetinfo.exe)が行っていると思っています。
http://www.geocities.co.jp/SiliconValley-SanJose/3220/XP-service.htm

なのでftp.exeが起動している確立があるのは、送信側のクライアントの方で、サーバ側は普通であれば立ち上がっていなく、仮に起動していても、それが受信中かどうかはわからないのでは？そうじゃなくても、ftp.exeではなくFFFTPなどのツールアプリで行っているかもしれないし、、、

#10さんの履歴を見るとASPでの回答が多いので、私の知らない'おまじない'があるのか、あるいは私の認識違いかと思って、疑問に思ったことを(便乗して)投げさせていただきました。
m(_ _)m

回答No.10

sam_inoue

>#8さん
>質問者はWin2Kのようですが、そのスクリプトは動作サポート外では？
こちらなのですが、OSの記載はありませんでした。
当方はXPでしか動作確認はできていないので、「自信なし」。
http://www.microsoft.com/japan/technet/scriptcenter/scripts/os/process/procthd/pcthvb07.mspx

回答No.9

1050 円（@1050YEN）

#8さん

質問者はWin2Kのようですが、そのスクリプトは動作サポート外では？
(違っていたらすいません)

http://www.microsoft.com/japan/technet/scriptcenter/scripts/os/process/procthd/pcthvb05.mspx

回答No.8

sam_inoue

1050YENさんのNo.7の方法で解決かも知れませんが、
一応、ftp.exeが動いているかのチェックを
スクリプトセンターにあったコードに判断を１つ加えてみました。

Set objDictionary = CreateObject("Scripting.Dictionary")
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery _
("Select * from Win32_Process")
For each objProcess in colProcesses
objDictionary.Add objProcess.ProcessID, objProcess.Name
Next
Set colThreads = objWMIService.ExecQuery _
("Select * from Win32_Thread")
swFind = 0
For each objThread in colThreads
intProcessID = CInt(objThread.ProcessHandle)
strProcessName = objDictionary.Item(intProcessID)
If InStr(strProcessName, "ftp.exe") <> 0 Then
swFind = 1
Wscript.Echo strProcessName & VbTab & objThread.ProcessHandle & _
VbTab & objThread.Handle & VbTab & objThread.ThreadState
Exit For
End If
Next
If swFind <> 1 Then Wscript.Echo "FTP Not Running!"

回答No.7

1050 円（@1050YEN）

検証してみました。

WinXPSp2にて、IISのFTPサーバを立ち上げ、FTPコマンドで大きいファイルのアップロードを行い、先に挙げた参考URLのIsNoOpen関数を利用しました。
(1)For Binary Lock Read As #1
(2)For Binary Lock Read Write As #1
どちらでも、アップロード中を認識できました。

これまた以前に言いましたが、FTP側ではどうやら
※FTP受信処理
{
　ファイルオープン(新規モード)
　　{
　　　受信終了まで書き込み
　　}
　ファイルクローズ
}
という処理を行っているようです。(検証結果からの考察)

ちなみに、ファイルをFTPがロックしていようといまいと、FTPがオープンしているだけで、他から排他で開くことができないので、意識する必要はありません。

回答No.6

sam_inoue

>チェックを行うVB側の方の処理を書いたのですよー
考えてみれば、先行Openする方がLockしてくれないと
VB側ではこの方法では検知不可能ですね。

> ＦＴＰ接続が実行中だとかいう情報をＡＰＩなどから．．．
タスクマネージャを動かしておいて、コマンドプロンプトで
FTPを起動させると、プロセスに「ftp.exe」が起動されますから、これを確認すれば良いと思います。
参考URLはプロセス関係のスクリプト集です。

参考URL：

http://www.microsoft.com/japan/technet/scriptcenter/scripts/os/process/default.mspx

回答No.5

1050 円（@1050YEN）

>#3さんの、
>>>Open inXlsFileName For Binary Lock Read Write As #1
>>となっていますが、Writeはきっといらないですね^^;
>は、逆でしょう。

いえ、FTP側はVBではなさそうなので、チェックを行うVB側の方の処理を書いたのですよー

回答No.4

sam_inoue

#3さんの、
>>Open inXlsFileName For Binary Lock Read Write As #1
>となっていますが、Writeはきっといらないですね^^;
は、逆でしょう。
こちらの思惑では、FTPがWriteロックしてくれていれば、
Lock Writeによって読み出しがエラーになるので、
「まだ出力中かも知れない」と判別がつくのです。

FTPの方はファイルをロックしてくれていないのでしょうか。

補足

皆さん、いろいろコメントを有難う御座います。

まず、ＦＴＰサーバー機能はＷｉｎ２ｋの標準機能を採用しています。
各クライアントからのＦＴＰソフトは何か決まっていませんのでどのような方法でファイルをアップロードしているかは特定出来ません。

アップロードしている最中であるとか、ＦＴＰ接続が実行中だとかいう情報をＡＰＩなどから取得する他ないのでしょうか？？

回答No.3

1050 円（@1050YEN）

追記です。

#2の参考URLは
>Open inXlsFileName For Binary Lock Read Write As #1
となっていますが、Writeはきっといらないですね^^;

回答No.2

1050 円（@1050YEN）

>Open Filename For Input As #fileNo

＃1さんが言われている
>Lock Read Write
ですが、
http://okweb.jp/kotaeru.php3?q=611232
にて「IsNoOpen」の命名で関数化されています。

※FTP受信処理
{
　ファイルオープン(新規モード)
　　{
　　　受信終了まで書き込み
　　}
　ファイルクローズ
}
という感じで、FTP側が処理をしていたら、この方法で回避できると思います。

もし↓のような2部構成になっていた場合は、回避しようがありませんので、別方法を考える必要があるかもしれません。
※FTP受信処理パート1
{
　ファイルオープン(新規モード)
　受信データを書き込み
　ファイルクローズ
}
※FTP受信処理パート2
{
　ファイルオープン(追加モード)
　受信データを書き込み
　ファイルクローズ
}