ReSQL.ru
     
powered by simpleCommunicator - 2.0.52     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / vb6 определение папки и переименование папки именем из масссива
8 сообщений из 8, страница 1 из 1
vb6 определение папки и переименование папки именем из масссива
    #38695068
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
Windows XP, на рабочем столе есть папка с рандомными именами каждый раз, при запуске программы необходимо переименовать название этой папки на случайное слово из массива, при условии что прежнее название папки не соответствует хотя бы одному из слов из массива, далее выход. Всё. Не могли бы написать код, думаю что следует начинать с контрольного файла помещенного в папку.
...
Рейтинг: 0 / 0
12.07.2014, 18:07
| Ответить | Цитировать | Написать  
vb6 определение папки и переименование папки именем из масссива
    #38695129
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
как переименовать папку на vb6?
...
Рейтинг: 0 / 0
12.07.2014, 21:09
| Ответить | Цитировать | Написать  
vb6 определение папки и переименование папки именем из масссива
    #38695146
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSVLAD
Участник
ильшат190,

Код: vbnet
1.
Name "C:\Folder1" As "C:\Folder2"
...
Рейтинг: 0 / 0
12.07.2014, 22:04
| Ответить | Цитировать | Написать  
vb6 определение папки и переименование папки именем из масссива
    #38695163
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
Option Explicit
Private Sub form_load()
 Dim FSO As Object
   Set FSO = CreateObject("Scripting.FileSystemObject")
   Search FSO.GetFolder("F:\")
End Sub
 Sub Search(Fold As Object)
 Dim SubFold As Object, Fil As Object
 Dim f As Integer
 f = FreeFile
   Debug.Print Fold
   On Error GoTo ErrHandle
   For Each SubFold In Fold.SubFolders
     Search SubFold
   Next SubFold
   For Each Fil In Fold.Files
   If InStr(1, Fil, "130795\привет") <> 0 Then
  Text1.Text = Fil
  Text1.Text = Replace(Text1.Text, "\130795\привет.txt", "")
  Text1.Text = Replace(Text1.Text, "F:\", "")
  'MsgBox Text1.Text
  
  Name "F:\" + Text1.Text As "F:\12341"
  End
 
  End If
   
  Next Fil
   Exit Sub
ErrHandle:
   'MsgBox "нет доступа к папке """ & Fold.Path & """"
  Err.Clear
End Sub




есть путь F:\моя папка\130795 и там два файла. Я вывожу название корневой папки. Потом пытаюсь переименовать но не получается. Без реакции, ручным способом все меняется.Что делать?
...
Рейтинг: 0 / 0
12.07.2014, 22:48
| Ответить | Цитировать | Написать  
vb6 определение папки и переименование папки именем из масссива
    #38695371
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
Option Explicit
Private Sub form_load()
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Search FSO.GetFolder("F:")
End Sub
Sub Search(Fold As Object)
Dim SubFold As Object, Fil As Object
'Debug.Print Fold
On Error GoTo ErrHandle
For Each SubFold In Fold.SubFolders
Search SubFold
Next SubFold
For Each Fil In Fold.Files
'Name "F:моя папка" As "F:12341" 'работает

If InStr(1, Fil, "130795привет") <> 0 Then
Text1.Text = Fil
Text1.Text = Replace(Text1.Text, "130795привет.txt", "")
Text1.Text = Replace(Text1.Text, "F:", "")
MsgBox Text1.Text 'работает
Name "F:" + Text1.Text As "F:12341" ' не работает
MsgBox "F:" + Text1.Text + "As" + "F:12341" 'работает


End If

Next Fil
Exit Sub
ErrHandle:
'MsgBox "Нет допуска к папке """ & Fold.Path & """"
Err.Clear
End Sub




почему то функция name внутри условия не работает, почему?
...
Рейтинг: 0 / 0
13.07.2014, 16:33
| Ответить | Цитировать | Написать  
vb6 определение папки и переименование папки именем из масссива
    #38695409
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
ильшат190,

думал-думал, не получилось всё таки name-переименование никак не работает в нужном месте, может как то по другому можно определить название папки по соответствующему файлу в этой папке?
...
Рейтинг: 0 / 0
13.07.2014, 18:01
| Ответить | Цитировать | Написать  
vb6 определение папки и переименование папки именем из масссива
    #38695457
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
ильшат190,

ты понимаешь, чем отличается "c:\привет.txt" от "c:привет.txt"?
...
Рейтинг: 0 / 0
13.07.2014, 20:37
| Ответить | Цитировать | Написать  
vb6 определение папки и переименование папки именем из масссива
    #38695484
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
Shocker.Proильшат190,

ты понимаешь, чем отличается "c:\привет.txt" от "c:привет.txt"?
да понимаю, спасибо. Только вот в оригинальном коде эти слеши были, они у меня после обработки исчезли.
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
 Option Explicit
Private Sub form_load()
 Dim FSO As Object
   Set FSO = CreateObject("Scripting.FileSystemObject")
   Search FSO.GetFolder("F:\")
End Sub
 Sub Search(Fold As Object)
 Dim SubFold As Object, Fil As Object
   'Debug.Print Fold
   On Error GoTo ErrHandle
   For Each SubFold In Fold.SubFolders
     Search SubFold
   Next SubFold
   For Each Fil In Fold.Files
    'Name "F:\&#236;&#238;&#255; &#239;&#224;&#239;&#234;&#224;" As "F:\12341" '&#240;&#224;&#225;&#238;&#242;&#224;&#229;&#242;
   If InStr(1, Fil, "130795\&#239;&#240;&#232;&#226;&#229;&#242;") <> 0 Then
  Text1.Text = Fil
  Text1.Text = Replace(Text1.Text, "\130795\&#239;&#240;&#232;&#226;&#229;&#242;.txt", "")
  Text1.Text = Replace(Text1.Text, "F:\", "")
  MsgBox Text1.Text '&#240;&#224;&#225;&#238;&#242;&#224;&#229;&#242;
  Name "F:\" + Text1.Text As "F:\12341" ' &#237;&#229; &#240;&#224;&#225;&#238;&#242;&#224;&#229;&#242;
  MsgBox "F:\" + Text1.Text + "As" + "F:\12341" '&#240;&#224;&#225;&#238;&#242;&#224;&#229;&#242;
 

  End If
   
  Next Fil
   Exit Sub
ErrHandle:
   'MsgBox "&#205;&#229;&#242; &#228;&#238;&#239;&#243;&#241;&#234;&#224; &#234; &#239;&#224;&#239;&#234;&#229; """ & Fold.Path & """"
  Err.Clear
End Sub



так что дело не в этом.
...
Рейтинг: 0 / 0
13.07.2014, 21:23
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / vb6 определение папки и переименование папки именем из масссива
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&tid=2156272]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 162ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 2ms
others: 12ms
total:  265ms
созд. / загр.: 265ms
x
x
Закрыть


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