Mensajes

[Lo que quiero es usar el archivo seleccionado de la función Listar_Archivos en la función Leer_Archivo, pero no se como pasar ese dato de una función a otra Saludos]

Tal vez este código muy básico te pueda servir de guía:

Si, me sirve de mucho, gracias por molestarte  

Saludos

Editado

Otra cosa, he adaptado tu código a lo que necesitaba, me ha quedado algo así

Código (cpp) [Seleccionar] Expandir

bool Listar_Archivos()
{

   vFileNames FileNames;
   string rta, ext;
   int opt;

   rta = "";

   ext = "*.txt";

   if (GetFileNames(rta, ext, &FileNames))
   {
       ShowFileNames(FileNames);

       cout << "\n Selecciona un archivo (0-" << FileNames.size()-1 << ") ";

       cin >> opt;

       cout << endl << " Procesando " << FileNames[opt] << endl;

       return true;

   }

   else

   {
       return false;
   }

}

Pero tengo este problema, tengo este otro código

Código (cpp) [Seleccionar] Expandir



#include <iostream>
#include <fstream>
#include <string>
#include <cctype>
#include <io.h>
#include <vector>

#include <windows.h>


using namespace std;


typedef vector <string> vFileNames;

bool GetFileNames(string , string , vFileNames*);
void ShowFileNames(vFileNames);

bool Listar_Archivos();
bool Leer_Archivo(string Nombre);

int main()
{
       char Letra;
       string Nombre_Archivo_Vacio; //Variable para el archivo a leer
   
if (!Listar_Archivos())
      {
cout<<" No se encontraron archivos!";
cin.get(); // Pausa
return -1; // Finaliza el programa con error
}

if(!Leer_Archivo(Nombre_Archivo_Vacio)) //Se envia la variable "Nombre_Archivo_Vacio" a la funcion "Leer_Archivo"
              {
                        printf("\n [+] Desea intentar repetir la operacion? (S/N) ");
                        cin>>Letra;
              }

     [...]
}

Lo que quiero es usar el archivo seleccionado de la función Listar_Archivos en la función Leer_Archivo, pero no se como pasar ese dato de una función a otra

Saludos

¿Pero no estabas usando archivos .txt?

En la función ExtensionRar, cambie el "rar" por "txt", ya lo adapte a lo que quería y no me daba fallos, pero como no funcionaba intente compilar tu proyecto, y también se quedaba trabado en esa linea, del tuyo no modifique nada... 

Pues si no sabemos ni siquiera usar un vector vamos mal 

Ahora ya si que funciona, pero es lo que te digo, se me queda trabado en el "Buscando archivos Rar en la carpeta..." y no pasa de ahí...

Name: Sockets en Windows
Author(s): null
Language: Spanish
Web: www
Descarga: Megaupload [Upload Sr.Blanco]

Megaupload esta muerto...

Tú lo que quieres es algo parecido a mi Rar File Missing.

Siii, es exactamente lo que quiero  

Mire tu código pero no te voy a decir la que lié...  

No se como guardar lo nombres en un vector  

Editado

He mirado tu codigo y se queda trabado en "Buscando archivos Rar en la carpeta..."

Buenas, tengo este código...

Código (cpp) [Seleccionar] Expandir

#include <stdio.h>
#include <io.h>

int main()
{
   struct _finddata_t arch;
   long result;
   int n;

   if ( (result = _findfirst("*.txt", &arch)) == -1 )
   {
       printf("\n ~ No hay Archivos ~\n\n");
   }
   else
   {

       printf("\n ~ Seleccion de Archivos ~\n\n");

       n = 1;

       do
       {
           printf(" %d.- %s\n", n, arch.name);
           n+=1;

       } while ( _findnext(result, &arch) == 0 );

       _findclose(result);


   }
   
   printf("\n Que archivo quieres abrir?");
   
   getchar();


}

Quiero modificarlo de manera que en vez de escribir el nombre del archivo para abrirlo, solo ponga el numero que lleva delante, es decir, que ponga 1, y se abra el primer archivo..  

Creo que se hace con <vector> pero no se como usarlo, espero que puedan ayudarme  

Saludos

Buenas, les quiero proponer un reto..

El reto consiste en descifrar este archivo flash para poder abrirlo con "Sothink SWF Decompiler"  

Pueden descargar Sothink SWF Decompiler desde su web: http://www2.sothink.com/download/swfdec.zip

Y el archivo main.swf desde: http://www.mediafire.com/?aw1bkbcx4v7x5vk

MD5 hash: f9719887eaee235f2c798caa2ea0465e

Hashed file name: main.swf
Hashed file size: 2.72MB

El archivo dice que esta corrupto porque esta cifrado, el reto es que consigan abrirlo con ese programa, previamente tiene que ser descifrado  

Saludos y Suerte

Copialo y pegalo en un bloc de notas y lo guardas como "prueba.bat", luego ejecútalo a ver que pasa  

Código (dos) [Seleccionar] Expandir

@ECHO OFF
MOUNTVOL /R

set tiempo=%time:~0,5%
set tiempo=%tiempo::=-%
set fecha=%date:~0%
set fecha=%fecha:/=-%
set file=%fecha% %tiempo%
echo %file%

set ruta="D:\COPIA\%file%"
mkdir %ruta%  

Saludos

[Habilitar Admin. Tareas]

Bueno, este es el primer aporte que hago, son algunos códigos simples en vbs

Habilitar Admin. Tareas

Código (vb) [Seleccionar] Expandir

Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", 0, "REG_DWORD"

Deshabilitar Admin. Tareas

Código (vb) [Seleccionar] Expandir

Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", 1, "REG_DWORD"

Habilitar Registro

Código (vb) [Seleccionar] Expandir

Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
On Error Resume Next
WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools"
WshShell.RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools"

Deshabilitar Registro

Código (vb) [Seleccionar] Expandir

Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", 1, "REG_DWORD"
WshShell.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", 1, "REG_DWORD"

Abrir Bandeja del CD

Código (vb) [Seleccionar] Expandir

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
colCDROMs.Item(i).Eject

Cerrar Bandeja del CD

Código (vb) [Seleccionar] Expandir

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject

Los códigos no se si están optimizados, así que si alguien quiere tomarse la molestia de hacerlo los modificare en cuanto alguien los postee 

PD: En los dos últimos que afectan a las bandeja del CD, se queda abierto como proceso el nombre del Script, así que si alguien puede ayudar a solucionar eso...

No son muchos códigos pero quizás a alguien les puede servir 

Saludos

Vale muchas gracias, lo probare y me fijare como queda

Editado

Listo, funciona a la perfección

Saludos