Удаление старых файлов

@Dimarik__1 · Регистрация: 27.12.2014

Студворк — интернет-сервис помощи студентам

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Set objShell = WScript.CreateObject("WScript.Shell") 
Set fso = CreateObject("Scripting.FileSystemObject") 
dir="c:\tmp"
element1 = 1
set f = fso.GetFolder(dir)
Set fc = f.Files
 
For Each f1 in fc
d= f1.DateCreated
diff=DateDiff("d",d,Now)
s = s & f1.Name
if diff>14 Then
fso.DeleteFile(dir & "" & f1.name)
end if
Next

таким способом я пытаюсь с использованием wsf-файла удалить старые файлы. Но у меня ошибка при запуске:
незавершенная ссылка на объект - соответственный символ не найден

greg zakharov · 01.11.2016, 14:16

Dimarik__1, начнем с того, что это не wsf, а vbs. Во-вторых, у Вас в коде достаточно много лишнего и ненужного.

Visual Basic
1
2
3
4
5
6
7
8
9
With CreateObject("Scripting.FileSystemObject")
  Dim colFiles : Set colFiles = .GetFolder("C:\tmp").Files
  
  For Each objFile In colFiles
    If DateDiff("d", objFile.DateCreated, Now) > 14 Then
      .DeleteFile(objFile, True)
    End If
  Next
End With

@Dimarik__1 · 01.11.2016, 16:15 **[ТС]**

не работает

@vavun · 01.11.2016, 16:20

Сообщение от Dimarik__1

не работает

И не должен в том виде, в котором он у вас.

Сообщение от greg zakharov

это не wsf, а vbs

@tisha_ · 01.11.2016, 17:13

Dimarik__1, поменяйте расширение файла с "wsf" на "vbs"

Не по теме:

А то, заладили, это не то, а то)))

@Dimarik__1 · 01.11.2016, 19:16 **[ТС]**

поменял

greg zakharov · 01.11.2016, 20:03

Dimarik__1, если брали код из поста #2, попробуйте в строке:

Visual Basic
1
.DeleteFile(objFile, True)

убрать скобки, т.е:

Visual Basic
1
.DeleteFile objFile, True

@DimarikOne · 02.11.2016, 08:13

Когда попытаешься 2 раза скрипт запустить выдаст ошибку что файл существует на 5 строке. Но я же не просто так создавал. А через If. Почему тогда If не отрабатывает

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
With CreateObject("Scripting.FileSystemObject")
folderFrom = "C:\tmp"
forderTo = "C:\FolderTo"
  If .FolderExists(folderTo) = false Then   
        .Createfolder forderTo
  End If
  Dim colFiles : Set colFiles = .GetFolder(folderFrom).Files
 
  yearVar = DatePart("yyyy", Now)
  forderTo = forderTo & "" & yearVar 
  If .FolderExists(folderTo) = false Then   
        .Createfolder forderTo
  End If
  End With

@vavun · 02.11.2016, 13:20

DimarikOne, зачем вы создали другую учетную запись ?

@DimarikOne · 02.11.2016, 13:36

пароль не помнил. Аккаунт привязан к моей личной почте. А на личную почту входить и восстанавливать пароли с другого компа не хотелось. А оставить пост хотелось. По этой причине и сделал другую учетку.

@vavun · 02.11.2016, 13:41

DimarikOne, Используйте основную учетную запись. На форуме запрещено создания пользователей клонов.

@Dimarik__1 · 02.11.2016, 19:02 **[ТС]**

хорошо. А по теме можете подсказать?

@vavun · 02.11.2016, 19:04

Сообщение от Dimarik__1

А по теме можете подсказать?

в vbs не разбираюсь, могу только на bat подсказать

@tisha_ · 03.11.2016, 08:54

Dimarik__1, у Вас опечатка. Проверяете вы существование папки folderTo, а создаете forderTo

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

@Dimarik__1 0 / 0 / 1 Регистрация: 27.12.2014 Сообщений: 298
	01.11.2016, 16:15 [ТС]
	не работает Миниатюры 0

@tisha_ 61 / 61 / 36 Регистрация: 16.09.2015 Сообщений: 296
	01.11.2016, 17:13
	Dimarik__1, поменяйте расширение файла с "wsf" на "vbs" Не по теме: А то, заладили, это не то, а то))) 0

@Dimarik__1 0 / 0 / 1 Регистрация: 27.12.2014 Сообщений: 298
	01.11.2016, 19:16 [ТС]
	поменял Миниатюры 0

@vavun 10593 / 5556 / 865 Регистрация: 07.04.2013 Сообщений: 15,660
	02.11.2016, 13:20
	DimarikOne, зачем вы создали другую учетную запись ? 0

@DimarikOne Заблокирован
	02.11.2016, 13:36
	пароль не помнил. Аккаунт привязан к моей личной почте. А на личную почту входить и восстанавливать пароли с другого компа не хотелось. А оставить пост хотелось. По этой причине и сделал другую учетку. 0

@vavun 10593 / 5556 / 865 Регистрация: 07.04.2013 Сообщений: 15,660
	02.11.2016, 13:41
	DimarikOne, Используйте основную учетную запись. На форуме запрещено создания пользователей клонов. 0

@Dimarik__1 0 / 0 / 1 Регистрация: 27.12.2014 Сообщений: 298
	02.11.2016, 19:02 [ТС]
	хорошо. А по теме можете подсказать? 0

@tisha_ 61 / 61 / 36 Регистрация: 16.09.2015 Сообщений: 296
	03.11.2016, 08:54
	Dimarik__1, у Вас опечатка. Проверяете вы существование папки folderTo, а создаете forderTo 1