Есть вариант решения.
Допустим ты пишешь клиентскую прогу, которая следит за перемещениями фаилов у юзеров, как токо какойнить файл помещается в папку с зарезервированным именем, тебе посылается сообщение (net send, ICQ, GroupWise, Novel)

Вот только как это реализовать

Есть способ проще: поставить в проге таимер на 30 минут(допустим), и в зациклить проверку на наличие файлов в папке (допустим функцией IR) , если есть что-то то выдавать мессагу

Ответить

Да вот я тут код надыбал, только как он работат может кто подскажет

Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long
Public Function DoesFileExist(ByVal strPath As String) As Boolean
DoesFileExist = PathFileExists(strPath)
End Function
MsgBox DoesFileExist("c:\autoexec.bat")

Ответить

Всё очень просто, PathFileExistsпроверяет на наличие файла ("c:\autoexec.bat")
выдаёт 1если удачно и 0 наоборот

Ответить

Всё очень просто, PathFileExistsпроверяет на наличие файла ("c:\autoexec.bat")
выдаёт 1если удачно и 0 наоборот

Ответить

Tolko werojatno, esli udachno eto ne objazatelno budet 1, prosto nenulewoe znachenie.

Ответить

А можно и без АПИ

on error goto 10

open "Путь к фаулу" fo input as #1

close #1

 10:

 if err.number then msgbox "File not Found" :exit sub

msgbox "File Found"

Ответить

Ответить

Я когда-то давно решил задачу стандартными средствами Планировщика. Запускал ним каждые пол-часа пакетный файл например exist.bat, в котором:

if Exist X:\SEND\*.d* Net Send UserName "Есть файлы WORD"

if Exist X:\SEND\*.t* Net Send UserName "Есть текстовые файлы "

if Exist X:\SEND\*.x* Net Send UserName "Есть файлы EXCEL"

...

, где UserName - сетевое имя пользователя, если сеть мелкософтовская а система NT/2000/XP

К сожалению Exist ...\*.* не работает, обязательно расширение, можно с маской.

А так все работало, как часы.

Ответить

Я когда-то давно решил задачу стандартными средствами Планировщика. Запускал ним каждые пол-часа пакетный файл например exist.bat, в котором:

if Exist X:\SEND\*.d* Net Send UserName "Есть файлы WORD"

if Exist X:\SEND\*.t* Net Send UserName "Есть текстовые файлы "

if Exist X:\SEND\*.x* Net Send UserName "Есть файлы EXCEL"

...

, где UserName - сетевое имя пользователя, если сеть мелкософтовская а система NT/2000/XP

К сожалению Exist ...\*.* не работает, обязательно расширение, можно с маской.

А так все работало, как часы.

Ответить

Я когда-то давно решил задачу стандартными средствами Планировщика. Запускал ним каждые пол-часа пакетный файл например exist.bat, в котором:

if Exist X:\SEND\*.d* Net Send UserName "Есть файлы WORD"

if Exist X:\SEND\*.t* Net Send UserName "Есть текстовые файлы "

if Exist X:\SEND\*.x* Net Send UserName "Есть файлы EXCEL"

...

, где UserName - сетевое имя пользователя, если сеть мелкософтовская а система NT/2000/XP

К сожалению Exist ...\*.* не работает, обязательно расширение, можно с маской.

А так все работало, как часы.

Ответить

Ответить

Млин! Глючит Опера-то! 3 раза не мог отправить ответ, а он 3 раза добавился.

Если только VB может помочь, тогда используй FSO

Dim bExistFiles As Boolean

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

Dim fol As Object

Set fol = fso.GetFolder("C:\TMP\")

If fol.Files.Count > 0 Then bExistFiles = True

Ответить