powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / удаление файла через Shell
9 сообщений из 34, страница 2 из 2
удаление файла через Shell
    #36339471
_Maverick
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
net use \\server\shared_folder /User:domain\[login] [pass]
xcopy W:\Productivity\ddto.DT0 \\server\shared_folder\USERS\SHARED\
net use \\server\shared_folder /d

Это текст батника...

Да уже всё понятно где ошибка....
Вместо того чтобы наезжать - помогли бы....
Ошибка была здесь:
было-не работало
Код: plaintext
rc = Shell("c:\Windows\System32\del.exe " & target_fld & " " & del_file,  1 )
стало
Код: plaintext
rc = Shell("c:\Windows\System32\cmd.exe /c del " & target_fld & " " & del_file,  1 )
...
Рейтинг: 0 / 0
удаление файла через Shell
    #36339477
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
в вашем батнике нет ни строчки по удалению файла. а в коде, что вы привели ниже совсем непонятно какие же пути вы используете (о значения переменных мы должны догадаться?)
...
Рейтинг: 0 / 0
удаление файла через Shell
    #36339514
_Maverick
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
net use \\server\shared_folder /User:domain\[login] [pass]
del \\server\shared_folder\USERS\SHARED\ddto.DT0
net use \\server\shared_folder /d
...
Рейтинг: 0 / 0
удаление файла через Shell
    #36339521
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
если такой батник работает, то вам осталось только аккуратно перенести его в код, не запутавшись в определении своих переменных
...
Рейтинг: 0 / 0
удаление файла через Shell
    #36339553
_Maverick
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
уже написал, как решил проблему...
Проблема была совсем не в том, что я некорректно перенес!
...
Рейтинг: 0 / 0
удаление файла через Shell
    #36339565
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
rc = Shell("c:\Windows\System32\cmd.exe /c del " & target_fld & " " & del_file,  1 )


это не будет работать! вы так ничего и не сделали.

вот так правильно:
Код: plaintext
rc = Shell("cmd /c del /Q d:\temp\1.txt")

разницу видите?
...
Рейтинг: 0 / 0
удаление файла через Shell
    #36341771
Igor Mitichev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Konst_One,

А я вот так удаляю...

Код: plaintext
1.
2.
3.
If FSO.FileExists(testfile) Then
  If FSO.GetFile(testfile).Attributes <>  0  Then FSO.GetFile(testfile).Attributes =  0 
  FSO.DeleteFile (testfile)
end if

Кстати, FSO нормально работает с сетевыми путями:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
C:\temp\>type test.vbs
Set objFSO = CreateObject("Scripting.FileSystemObject")
testfile="\\SERVER\update\ntp.cmd"
wscript.echo (objFSO.GetFile(testfile).Attributes)

C:\temp\>cscript test.vbs
 32 

C:\temp\>attrib \\SERVER\update\ntp.cmd
A          \\SERVER\update\ntp.cmd
...
Рейтинг: 0 / 0
удаление файла через Shell
    #36341787
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а мне то зачем это? вы это автору пишите =)
...
Рейтинг: 0 / 0
удаление файла через Shell
    #36342537
AndrF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Igor MitichevКстати, FSO нормально работает с сетевыми путями:

А кто с ними не нормально работает?

Kill - работает нормально
API-шная DeleteFile - тоже нормально.
...
Рейтинг: 0 / 0
9 сообщений из 34, страница 2 из 2
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / удаление файла через Shell
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]