ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / LongFileName to ShortFileName
5 сообщений из 5, страница 1 из 1
LongFileName to ShortFileName
    #32312137
lnu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lnu
Участник
Народ, как преобразовать, например, C:\Program Files\ в C:\Progra~1\
...
Рейтинг: 0 / 0
31.10.2003, 16:42
| Ответить | Цитировать | Написать  
LongFileName to ShortFileName
    #32312194
Фотография NNN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NNN
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
#define MAX_PATH        260 

?GetShortFileName(GETFILE())

FUNCTION GetShortFileName
LPARAMETERS lcFileName as String
DECLARE Integer GetShortPathName IN WIN32API ;
string @ lpszLongPath, string @ lpszShortPath, integer cchBuffer
LOCAL lnSize as Integer
LOCAL lnReturn as Integer
LOCAL lcBuffer as String
lnSize=MAX_PATH
lcBuffer=SPACE(MAX_PATH)
lnReturn=GetShortPathName(@lcFileName,@lcBuffer,lnSize)
RETURN LEFT(lcBuffer,lnReturn)
ENDFUNC
...
Рейтинг: 0 / 0
31.10.2003, 17:12
| Ответить | Цитировать | Написать  
LongFileName to ShortFileName
    #32312223
lnu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lnu
Участник
Значит, я писал правильно.

Почуму же тогда не всегда работает
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
DECLARE integer WinExec IN kernel32 string lpCmdLine, integer nCmdShow
DECLARE INTEGER GetShortPathName IN kernel32; 
    STRING    lpszLongPath,; 
    STRING  @ lpszShortPath,; 
    INTEGER   cchBuffer  

PF=GETENV( "ProgramFiles" )
CDir =SYS( 5 )+SYS( 2003 )+'\'
strFileName=cdir
strPath=REPLICATE(CHR( 0 ), 165 )
lngRes = GetShortPathName(strFileName, @ strPath,  164 )
strPath=substr(strPath, 1 ,lngRes)
WinExec(PF+ "\Rar\rar.exe a -ep " + strPath+'1 '+strPath+'*.bmp',  10 )


Иногда Rar кричит, что "File open error. Program aborted", а иногда нормально архивирует.
В чем проблема?
...
Рейтинг: 0 / 0
31.10.2003, 17:26
| Ответить | Цитировать | Написать  
LongFileName to ShortFileName
    #32312309
=Добрый=
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
=Добрый=
Гость
Что за бред.
...
Рейтинг: 0 / 0
31.10.2003, 18:49
| Ответить | Цитировать | Написать  
LongFileName to ShortFileName
    #32312381
Фотография NNN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NNN
Участник
2lnu

Я бы перед вызовом WinExec на всякий случай бы написал
Код: plaintext
strPath=ADDBS(strPath)
...
Рейтинг: 0 / 0
31.10.2003, 21:40
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / LongFileName to ShortFileName
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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