Como renombrar un Archivo especifico en la maquina y que sea de 8 digitos.
Private Sub cmdGo_Click()
Dim ListadoFiles() As String
Dim lstCount As Long
Dim lstIndex As Long
Dim nRet As Long
Text2.Text = ""
Text2.Text = Dir1.Path & "\"
Dim n As Integer
Dim nombre_enc As String
Dim nombre As String
cont = 0
For n = 0 To File1.ListCount - 1
cont = Val(cont) + 1
If Len(cont) = 1 Then
num_nuevo = Val(cont)
num_nuevo = "0000000" & num_nuevo & ".tif"
Else
If Len(cont) = 2 Then
num_nuevo = Val(cont)
num_nuevo = "000000" & num_nuevo & ".tif"
Else
If Len(cont) = 3 Then
num_nuevo = Val(cont)
num_nuevo = "00000" & num_nuevo & ".tif"
Else
If Len(cont) = 4 Then
num_nuevo = Val(cont)
num_nuevo = "0000" & num_nuevo & ".tif"
Else
If Len(cont) = 5 Then
num_nuevo = Val(cont)
num_nuevo = "000" & num_nuevo & ".tif"
Else
If Len(cont) = 6 Then
num_nuevo = Val(cont)
num_nuevo = "00" & num_nuevo & ".tif"
Else
If Len(cont) = 7 Then
num_nuevo = Val(cont)
num_nuevo = "0" & num_nuevo & ".tif"
Else
If Len(cont) = 8 Then
num_nuevo = Val(cont)
num_nuevo = num_nuevo & ".tif"
Else
If Len(cont) > 9 Then
MsgBox "Error no puede exeder los 8 digitos la cantidad de imagenes procesadas"
End
End If
End If
End If
End If
End If
End If
End If
End If
End If
'Trim (Str(cont)), 4, 0
Me.MousePointer = 11
If Dir1.Path = "C:\" Then
nombre_enc = Dir1.Path
Else
nombre_enc = Dir1.Path & "\"
End If
nombre = File1.List(n)
Text2 = nombre_enc & nombre
Text3 = num_nuevo
Name Text2 As nombre_enc & num_nuevo
'MsgBox "Botón 'Renombrar' " & "se realizaría este renombrado: " & nombre_enc & nombre & Chr(13) & "Archivo original: " & nombre_enc & nombre & Chr(13) & "Archivo renombrado:" & nombre_enc & num_nuevo
Me.MousePointer = 0
num_nuevo = 0
Next n
File1.Refresh
MsgBox " Archivos Renombrados "
end sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Form_Load()
Dir1.Path = "c:\"
Set obj = CreateObject("Scripting.FileSystemObject"
Text1 = 0
End Sub