Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Ms-Dos » SCRIPT para contar Carpetas y archivos en windows

Ms-Dos - SCRIPT para contar Carpetas y archivos en windows

Volver
Nuevo Tema
<<>>
 
Vista:

SCRIPT para contar Carpetas y archivos en windows

Publicado por Joan Muñoz (4 intervenciones) el 19/09/2016 17:47:57
Hola a todos, deseo hacer un menú donde me muestre opciones y según la opción que yo elija me muestre la cantidad de carpetas que hay y la cantidad de archivos que hay.

Carpeta Raiz DOC-CLIENTES
Dentro de de esta carpetas hay 27 Carpetas, pero dentro de cada carpeta hay otras carpetas y dentro de esas otras carpetas hay archivos.

La idea es hacerlo un poco dinámico para el usuario final en donde me deje seleccionar la carpeta que quiero contar y que me muestre un resultado de Carpetas y Archivos.

D:\DOC-CLIENTES
CARPETA A
CARPETA B
CARPETA C
CARPETA D
CARPETA E
CARPETA F
CARPETA G
......

D:\DOC-CLIENTES\CARPETA A
Carpeta Pepito Perez
Carpeta Anita Ortiz
Carpeta Juanito Hurtado
.......

D:\DOC-CLIENTES\CARPETA A\Carpeta Pepito Perez
Archivo Excel
Archivo Word
Archivo Pdf
Archivp Jpg
.....

Quedo pendientes a los comentarios.

Saludes y Gracias!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 1.419
Oro
Ha mantenido su posición en Ms-Dos (en relación al último mes)
Gráfica de Ms-Dos

SCRIPT para contar Carpetas y archivos en windows

Publicado por Antoni Masana (812 intervenciones) el 20/09/2016 08:25:41
Mi primer consejo: olvida hacer un script en MS-DOS ( BAT ) para este problema, yo ni me lo plantearia.

Hay varias opciones posibles:

1.- Hacer un programa Visual Basic u otro lenguaje de programación.

2.- Hacer el script en un sistema mas avanzado como por ejemplo PERL o PYTHON (Te los puedes descargar de internet y es libre)

3.- VBScript que es nativo de Windows, pero no me fio un pelo.

Yo que soy programador utilizaría el Visual Basic que me seria muy fácil de montar un formulario con dos Ventanas desplegables con las listas de directorios de cada nivel y unas casillas donde dar el resultado de la cuenta.

Si quieres seguimos hablando.

Saludos
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

SCRIPT para contar Carpetas y archivos en windows

Publicado por Joan Muñoz (4 intervenciones) el 20/09/2016 15:43:55
Gracias Antoni, yo tengo un poco de conocimiento de visual pero lo que no logro saber es hacer que el algoritmo cuente las carpetas y los archivos de windows, por favor me podrías ayudar haciendo este requerimiento en visual.

Gracias!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Antoni Masana
Val: 1.419
Oro
Ha mantenido su posición en Ms-Dos (en relación al último mes)
Gráfica de Ms-Dos

SCRIPT para contar Carpetas y archivos en windows

Publicado por Antoni Masana (812 intervenciones) el 21/09/2016 09:09:32
Aquí tienes un pequeño ejemplo en Visual Basic 6.

Es muy tonto y muy basto, tienes que adornarlo pero como idea inicial está bastante bien.
Lo peor, la parte de contar los ficheros tendrás que pulirla un poco más

Tienes que crear tres ficheros:


form1.frm

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
VERSION 5.00
Begin VB.Form Form1
   Caption         =   "Form1"
   ClientHeight    =   13920
   ClientLeft      =   1650
   ClientTop       =   1935
   ClientWidth     =   9315
   LinkTopic       =   "Form1"
   ScaleHeight     =   13920
   ScaleWidth      =   9315
   Begin VB.FileListBox File1
      Height          =   480
      Left            =   360
      TabIndex        =   3
      Top             =   8160
      Width           =   3495
   End
   Begin VB.ListBox List2
      BeginProperty Font
         Name            =   "Courier New"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False

         Italic          =   0   'False

         Strikethrough   =   0   'False

      EndProperty
      Height          =   5190
      Left            =   2700
      TabIndex        =   2
      Top             =   300
      Width           =   6255
   End
   Begin VB.ListBox List1
      BeginProperty Font
         Name            =   "Courier New"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False

         Italic          =   0   'False

         Strikethrough   =   0   'False

      EndProperty
      Height          =   5190
      Left            =   300
      TabIndex        =   1
      Top             =   300
      Width           =   2055
   End
   Begin VB.DirListBox Dir1
      Height          =   540
      Left            =   240
      TabIndex        =   0
      Top             =   7200
      Width           =   3615
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Home As String
 
Private Sub Form_Load()
    Home = "C:\Doc-Cliente": Dir1.Path = Home
    For a = 0 To Dir1.ListCount - 1
        List1.AddItem Mid$(Dir1.List(a), Len(Home) + 2)
    Next
End Sub
 
Private Sub List1_Click()
    Dir1.Path = Home + "\" + List1.Text
    List2.Clear
    For a = 0 To Dir1.ListCount - 1
        List2.AddItem Mid$(Dir1.List(a), Len(Home) + 2)
    Next
End Sub
 
Private Sub List2_Click()
    n_Pdf = 0: n_Xls = 0: n_Doc = 0: n_Jpg = 0: File1.Path = Home + "\" + List2.Text
 
    For a = 0 To File1.ListCount - 1
        File = File1.List(a)
        If InStr(UCase$(File), ".PDF") Then n_Pdf = n_Pdf + 1
        If InStr(UCase$(File), ".XLS") Then n_Xls = n_Xls + 1
        If InStr(UCase$(File), ".DOC") Then n_Doc = n_Doc + 1
        If InStr(UCase$(File), ".JPG") Then n_Jpg = n_Jpg + 1
    Next
 
     MsgBox "Ficheros PDF    " & n_Pdf & vbCrLf & "Ficheros Excel  " & n_Xls & vbCrLf & _
            "Ficheros Word   " & n_Doc & vbCrLf & "Ficheros Jpg    " & n_Jpg
End Sub


Proyecto1.vbp

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Type=Exe
Form=Form1.frm
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\Windows\SysWOW64\stdole2.tlb#OLE Automation

Startup="Form1"
Command32=""
Name="Proyecto1"
HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
VersionCompanyName="MEFF"
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1


Proyecto1.vbw

1
Form1 = 532, 151, 1250, 1133, , 0, 0, 0, 0, C
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar