begin process at 2012 02 16 03:18:24
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Divers

 > SERIAL RENAMER

SERIAL RENAMER


 Information sur la source

Note :
1 / 10 - par 1 personne
1,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Divers Classé sous :renamer, renommer, fichier Niveau :Débutant Date de création :25/10/2002 Date de mise à jour :25/10/2002 21:43:28 Vu / téléchargé :4 760 / 209

Auteur : Majen

Ecrire un message privé
Site perso
Commentaire sur cette source (3)
Ajouter un commentaire et/ou une note

 Description

pour renommer tout les fichiers d'un dossier...

fichier.EXE, FICHIER.exe, FiCHIEr.Exe... => Fichier.exe

Source

  • 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


 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip TEST DE LUCIDIDÉ
Source avec Zip MORSE
Source avec Zip INTRODUCTION AU VISUAL BASIC
SUBSTITUTION POLYALPHABÉTIQUE (VIGENERE)
Source avec Zip Source avec une capture ECOUTEZ 205 RADIOS SUR VOTRE PC SANS PUB

 Sources de la même categorie

Source avec Zip TEXTBOX EN NUMÉRIQUE par 320C
Source avec Zip DÉCIMAL TO HEXDECIMAL par loulou27200
SOUS-TITRES : INCRÉMENTATION DE TOUTES LES CHAÎNES DE CARACT... par ALMIRA
Source avec Zip Source avec une capture EVALUER UN NOMBRE D'OBJETS AVEC UNE BALANCE ET DEUX ÉCHANTIL... par lexsty
Source avec Zip Source avec une capture PETIT LOGICIEL DE DEVIS SANS BD par lololilizozo

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture Source .NET (Dotnet) RENOMMER TOUS LES FICHIERS D'UN DOSSIER PAR CLIC DROIT par Le Pivert
Source avec Zip Source avec une capture Source .NET (Dotnet) RENOMMER FICHIERS MASSIVEMENT par aus3004
Source avec Zip Source avec une capture Source .NET (Dotnet) RENOMMER FICHIERS AVEC VIEWER par Le Pivert
Source avec Zip Source avec une capture Source .NET (Dotnet) FILE RENAME - CHANGER LES NOMS DE VOS FICHIERS EN TOUTE SIMP... par Papymuzo
Source avec Zip Source avec une capture SERIAL RENAMER par bouv

Commentaires et avis

Commentaire de seyev le 25/10/2002 23:41:19

hehe un petit quelque chose dont j'aurai l'utilité, mais que je n'ai jamais eu envie de coder... merci ;)

Commentaire de steven007 le 26/10/2002 21:27:38

j'aurai besoin d'un truc qui renome des dossiers dans un dossier.

héhé

Commentaire de hvb le 27/10/2002 09:55:27

j'ai fait un truc semblable (mais un peu plus lourd) pour changer les extensions de certains fichiers (et donc tromper par l'apparence collegues et patron)

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Comment dupliquer un fichier? [ par Roswell ] J'utilise un fichier modele: reference97.mdb et je dois copier et renommer ce fichier.Comment faire pour l'ouvrir, le renommer et l'enregistrer sous u Renommer un fichier [ par Zozou ] Salut à tous,Comment fait on pour renommer un fichier ?.Merci à l'avance. renommer un fichier sans toucher à l'extension [ par sanpexos ] BonjourJ'aimerais renommer un fichier sans toucher à l'extension , par exemple renommer "file.doc" en "file2.doc" quand l'utilisateur n'a rentré que f renommer un fichier [ par LEKING ] ok suposon que je voudrais renommer un fichier avec ce quil y aurais de marquer dans un label merci en avence renommer un fichier [ par buzz ] Bonjour,Je cherche les fonctions me permettant de renommer un fichier au sein d'un programme en Visual Basic.Merci d'avance.Yannig. Renommer fichier avec VBA [ par Stoomm ] bonjour, j'aimerais renommer un fichier avec un module Acces (Nom du fichier en fonction d'un champ d'une table)J'utilise la commande :Name "ancien n renommer un fichier ou un dossier... [ par config ] j'aimerais savoir comment je peux renomer un fichier sans utiliser 'copyfile' puis 'kill' paske c'est trop long et c'est hyper chiant pour les dossier renommer un fichier [ par baf ] Bonjour,Je cherche la commande pour pouvoir modifier l'extansion d'un fichier sélectionné dans une FileListBox. Qq'un peut-il m'aider ? MerciF.G Renommer Fichier en cours d'utilisation [ par metalcoder ] Salut a tous,Dans le cadre de mon boulot, j'ai fait une appli qui renomme des fichiers videos produite par une camera et cela sans que l'operateur n'e PB POUR RENOMMER UN FICHIER ZIP DE FORMAT COURT EN FORMAT LONG [ par JMCIS ] Bonjour,J'ai besoin de renommer (dans le déroulement d'une macro en VB sous Excel) un fichier nommé : Suivi1.zipen Suivi du 16-03-04.zipN'étant pas


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 2,215 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales