crear carpetas y archivos en mayusculas

[Cybar]

Buen dia Señores y Señoras del Foro

Tengo una duda, necesito crear carpetas y que éstas se mantengan en mayúculas, la cadea que uso en el momento de crear la carpeta y los archivos, están en mayúsculas, pero al revisar la carpeta y los archivos, éstos estan en minúsculas. Aclaro que también uso el textmerge para crear el contenido

Utilizo el siguiente codigo:

TEXT TO contenido NOSHOW
[DataEntryInit]
OperatorID=<<idenc>>
lock=verify,stats
Interactive=Ask
InputData=.\BASE\<<nombrearchivo+".DAT">>
[DataEntryIds]
dptod=<<codidpto>>
dsitritod=<<coddistrito>>
area=<<vararea>>
barrio=<<codbarrio>>
Sector=<<varsector>>
manzana=<<varmanzana>>
AT=<<varat>>
AE=<<varae>>
Equipo=<<varequipo>>
Encuestador=<<idenc>>
ENDTEXT

nomcompleto = rutacompleta + varnombre + "\" + "EQUIPO" + idenc + "\" + idenc + "\" + nombrearchivo + ".DAT"
            carpeta = rutacompleta + varnombre + "\" + "EQUIPO" + idenc + "\" + idenc + "\"
            IF !DIRECTORY(carpeta)
                MKDIR(UPPER(carpeta))
            ENDIF
            STRTOFILE(contenido,nomcompleto)

Les pido una ayuda luego de consultar en el Foro y en Google, porque ya no se como hacer.
Algunas carpetas y archivos me las crea con mayúsculas, como deber ser.

Saludos,


Alan Sanier

[Yvan Carranza]

Usa filesystem o algo asi se llama..

> --
>  
>  
>  
>

[FidelJ]

* Usado Scripting.FileSystemObject

* Esto te respeta mayúsculas o minúsculas. Si el archivo existe, debes borrarlo previamente, porque de lo contrario, conserva el modelo original.

*NombreArchivo debe contener la extensión "Nombre.dat". 

lUpper=.t.

carpeta = rutacompleta + varnombre + "\" + "EQUIPO" + idenc + "\" + idenc 

nomCompleto=ADDBS(carpeta)+IIF(lUpper,UPPER(NombreArchivo),PROPER(NombreArchivo))

IF !DIRECTORY(carpeta)

fso = createobject('Scripting.FileSystemObject')

fldr = fso.CreateFolder(Carpeta)

ENDIF

IF FILE(nomCompleto)

DELETE FILE &nomCompleto

endif

fso = CreateObject('Scripting.FileSystemObject')

tf = fso.CreateTextFile(nomCompleto, .t.)

tf.Write (Contenido)  && tarea similar a StrToFile()

tf.Close

[Alan Cybar]

Muchisimas Gracias, con este prgrama pude solucionarlo!!!

Alan Sanier

--