Dali je moguce da niko nema ideju. Pre su posetioci ovog foruma bili mnogo agilniji.
Kada je takva situacija morao sam sam da resim.
Code:
Private Sub Command1_Click()
Dim oFSO As New FileSystemObject
Dim oFld As Folder, oFile As File
Set oFld = oFSO.GetFolder("C:\Analitika\podaci")
For Each oFile In oFld.Files
While Left(oFile.Name, 1) = "0"
oFile.Name = Mid(oFile.Name, 2)
Wend
Next
End
End Sub
- Promena u odnosu na prvo javljanje je da se fajlovi nalaze u C:\Analitika\podaci
- Onih ajd da kazemo 100000 fajlova se na mojoj masini rename-juju za nekoh 2 min.
Dali moze ovo brze, ima li neko ideju??