- Dim nFile, nMaj, nNewName, nOldName As String
-
- Private Sub Command1_Click()
- For i = 0 To File1.ListCount
- nOldName = File1.List(i)
- If nOldName <> "" Then
- nFile = LCase$(nOldName)
- nMaj = Mid$(nFile, 1, 1)
- nMaj = UCase$(nMaj)
- nNewName = nMaj & Mid$(nFile, 2)
- Name Dir1.Path & "\" & nOldName As Dir1.Path & "\" & nNewName
- End If
- Next i
- File1.Refresh
- End Sub
-
- Private Sub File1_Click()
- nOldName = File1
- nFile = LCase$(nOldName)
- nMaj = Mid$(nFile, 1, 1)
- nMaj = UCase$(nMaj)
- nNewName = nMaj & Mid$(nFile, 2)
- File1.ToolTipText = nName
- End Sub
-
- Private Sub Dir1_Change()
- File1 = Dir1
- End Sub
-
- Private Sub Drive1_Change()
- Dir1.Path = Drive1
- End Sub
Dim nFile, nMaj, nNewName, nOldName As String
Private Sub Command1_Click()
For i = 0 To File1.ListCount
nOldName = File1.List(i)
If nOldName <> "" Then
nFile = LCase$(nOldName)
nMaj = Mid$(nFile, 1, 1)
nMaj = UCase$(nMaj)
nNewName = nMaj & Mid$(nFile, 2)
Name Dir1.Path & "\" & nOldName As Dir1.Path & "\" & nNewName
End If
Next i
File1.Refresh
End Sub
Private Sub File1_Click()
nOldName = File1
nFile = LCase$(nOldName)
nMaj = Mid$(nFile, 1, 1)
nMaj = UCase$(nMaj)
nNewName = nMaj & Mid$(nFile, 2)
File1.ToolTipText = nName
End Sub
Private Sub Dir1_Change()
File1 = Dir1
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1
End Sub