Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / LongFileName to ShortFileName / 5 сообщений из 5, страница 1 из 1
31.10.2003, 16:42
    #32312137
lnu
lnu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LongFileName to ShortFileName
Народ, как преобразовать, например, C:\Program Files\ в C:\Progra~1\
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.10.2003, 17:12
    #32312194
NNN
NNN
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LongFileName to ShortFileName
Код: 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:26
    #32312223
lnu
lnu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LongFileName to ShortFileName
Значит, я писал правильно.

Почуму же тогда не всегда работает
Код: 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, 18:49
    #32312309
=Добрый=
=Добрый=
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LongFileName to ShortFileName
Что за бред.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.10.2003, 21:40
    #32312381
NNN
NNN
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LongFileName to ShortFileName
2lnu

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


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