ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / создание папки программно в Visual Basic
13 сообщений из 13, страница 1 из 1
создание папки программно в Visual Basic
    #38531365
eduard1981
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
eduard1981
Гость
Здравствуйте, помогите плиз! как написать программно: нужно создать папку с текущем годом, если ее нет
...
Рейтинг: 0 / 0
20.01.2014, 07:49
| Ответить | Цитировать | Написать  
создание папки программно в Visual Basic
    #38531366
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Creates a new directory or folder.

Syntax

MkDir path

The required path argument is a string expression that identifies the directory or folder to be created. The path may include the drive. If no drive is specified, MkDir creates the new directory or folder on the current drive.

Example
This example uses the MkDir statement to create a directory or folder. If the drive is not specified, the new directory or folder is created on the current drive.

MkDir "MYDIR"    ' Make new directory or folder.
...
Рейтинг: 0 / 0
20.01.2014, 07:55
| Ответить | Цитировать | Написать  
создание папки программно в Visual Basic
    #38531400
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
Проще всего ИМХО так - можно создать (или проверить) сразу путь: http://www.cyberforum.ru/post4037794.html
...
Рейтинг: 0 / 0
20.01.2014, 09:40
| Ответить | Цитировать | Написать  
создание папки программно в Visual Basic
    #38531929
eduard1981
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
eduard1981
Гость
HandKot, а если еще добавить условие , что если есть эта папка с текущем годом то ничего не делаем, а если нет то создаем
...
Рейтинг: 0 / 0
20.01.2014, 15:08
| Ответить | Цитировать | Написать  
создание папки программно в Visual Basic
    #38532197
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
If...Then...Else Statement 

Conditionally executes a group of statements, depending on the value of an expression.

Syntax

If condition Then [statements] [Else elsestatements]

Or, you can use the block form syntax:

If condition Then
[statements]

[ElseIf condition-n Then
[elseifstatements]


Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Dir Function

Returns a String representing the name of a file, directory, or folder that matches a specified pattern or file attribute, or the volume label of a drive.

Syntax

Dir[(pathname[, attributes])]



и еще куча способов
...
Рейтинг: 0 / 0
20.01.2014, 17:41
| Ответить | Цитировать | Написать  
создание папки программно в Visual Basic
    #38532656
eduard1981
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
eduard1981
Гость
Функция DIR на сколько я помню не сработает с числовым названием папки, мне нужно чтобы папка была с названием текущего года , например 2014
...
Рейтинг: 0 / 0
21.01.2014, 06:33
| Ответить | Цитировать | Написать  
создание папки программно в Visual Basic
    #38532672
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
да вроде работает
а чтобы не возиться с проверками, (да простят меня гуру) просто отрубите проверку ошибок и просто вызовите MkDir
только потом опять не забудьте включить
...
Рейтинг: 0 / 0
21.01.2014, 08:07
| Ответить | Цитировать | Написать  
создание папки программно в Visual Basic
    #38532724
eduard1981
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
eduard1981
Гость
HandKot, действительно все работает!! папку создает такую какую мне надо. Спасибо! а если все таки еще условие поставить : если такая папка (папка с числовым названием ) существует то тогда ниче не делать , если нет то добавить
...
Рейтинг: 0 / 0
21.01.2014, 09:44
| Ответить | Цитировать | Написать  
создание папки программно в Visual Basic
    #38532751
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
eduard1981HandKot, действительно все работает!! папку создает такую какую мне надо. Спасибо! а если все таки еще условие поставить : если такая папка (папка с числовым названием ) существует то тогда ниче не делать , если нет то добавить
я же уже писал:
авториспользуйте
If...Then...Else Statement и Dir Function
или Вы хотите, уже готовый код?
...
Рейтинг: 0 / 0
21.01.2014, 10:08
| Ответить | Цитировать | Написать  
создание папки программно в Visual Basic
    #38532761
eduard1981
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
eduard1981
Гость
HandKot, желательно ))
...
Рейтинг: 0 / 0
21.01.2014, 10:13
| Ответить | Цитировать | Написать  
создание папки программно в Visual Basic
    #38532764
prog882
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
prog882
Гость
eduard1981, Excel(vba):

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Option Explicit
'Tools-References-Microsoft Scripting Runtime
Sub CreateFolder()
    Dim fso As New FileSystemObject
    Dim strFolder As String
    strFolder = ThisWorkbook.Path & "\" & Year(Date)
    If fso.FolderExists(strFolder) = False Then
        fso.CreateFolder (strFolder)
    End If
End Sub
...
Рейтинг: 0 / 0
21.01.2014, 10:15
| Ответить | Цитировать | Написать  
создание папки программно в Visual Basic
    #38534405
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
eduard1981HandKot, желательно ))
лень двигатель чего?
берете вариант prog882 и меняете exists на DIR, а CreateFolder на MkDir
...
Рейтинг: 0 / 0
22.01.2014, 14:58
| Ответить | Цитировать | Написать  
создание папки программно в Visual Basic
    #38534418
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
да, забыл сказать ещё жмете F1, чтобы получить помощь по функциям
...
Рейтинг: 0 / 0
22.01.2014, 15:07
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / создание папки программно в Visual Basic
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&gotonew=1&tid=2156556]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 52ms
get topic data:
 9ms
get first new msg:
 15ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 13ms
total:  169ms
созд. / загр.: 169ms
x
x
Закрыть


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