Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / создание папки программно в Visual Basic / 13 сообщений из 13, страница 1 из 1
20.01.2014, 07:49
    #38531365
eduard1981
eduard1981
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
создание папки программно в Visual Basic
Здравствуйте, помогите плиз! как написать программно: нужно создать папку с текущем годом, если ее нет
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.01.2014, 07:55
    #38531366
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
создание папки программно в Visual Basic
Код: 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, 09:40
    #38531400
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
создание папки программно в Visual Basic
Проще всего ИМХО так - можно создать (или проверить) сразу путь: http://www.cyberforum.ru/post4037794.html
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.01.2014, 15:08
    #38531929
eduard1981
eduard1981
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
создание папки программно в Visual Basic
HandKot, а если еще добавить условие , что если есть эта папка с текущем годом то ничего не делаем, а если нет то создаем
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.01.2014, 17:41
    #38532197
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
создание папки программно в Visual Basic
Код: 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
| Ответить | Цитировать | Написать  
21.01.2014, 06:33
    #38532656
eduard1981
eduard1981
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
создание папки программно в Visual Basic
Функция DIR на сколько я помню не сработает с числовым названием папки, мне нужно чтобы папка была с названием текущего года , например 2014
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.01.2014, 08:07
    #38532672
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
создание папки программно в Visual Basic
да вроде работает
а чтобы не возиться с проверками, (да простят меня гуру) просто отрубите проверку ошибок и просто вызовите MkDir
только потом опять не забудьте включить
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.01.2014, 09:44
    #38532724
eduard1981
eduard1981
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
создание папки программно в Visual Basic
HandKot, действительно все работает!! папку создает такую какую мне надо. Спасибо! а если все таки еще условие поставить : если такая папка (папка с числовым названием ) существует то тогда ниче не делать , если нет то добавить
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.01.2014, 10:08
    #38532751
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
создание папки программно в Visual Basic
eduard1981HandKot, действительно все работает!! папку создает такую какую мне надо. Спасибо! а если все таки еще условие поставить : если такая папка (папка с числовым названием ) существует то тогда ниче не делать , если нет то добавить
я же уже писал:
авториспользуйте
If...Then...Else Statement и Dir Function
или Вы хотите, уже готовый код?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.01.2014, 10:13
    #38532761
eduard1981
eduard1981
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
создание папки программно в Visual Basic
HandKot, желательно ))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.01.2014, 10:15
    #38532764
prog882
prog882
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
создание папки программно в Visual Basic
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
| Ответить | Цитировать | Написать  
22.01.2014, 14:58
    #38534405
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
создание папки программно в Visual Basic
eduard1981HandKot, желательно ))
лень двигатель чего?
берете вариант prog882 и меняете exists на DIR, а CreateFolder на MkDir
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.01.2014, 15:07
    #38534418
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
создание папки программно в Visual Basic
да, забыл сказать ещё жмете F1, чтобы получить помощь по функциям
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / создание папки программно в Visual Basic / 13 сообщений из 13, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 422ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2156556]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 45ms
get topic data:
 14ms
get forum data:
 3ms
get page messages:
 57ms
get tp. blocked users:
 2ms
others: 268ms
total:  422ms
x
x
Закрыть


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