Improving the TimeStamp Backup extension:
"Manage Backup files"
My recent plan: these features will be embedded into the timeStampBackup extension
v.2.0.0 v.1.2.0. Please help me at the translations of labels, and titles. Please fix my mistakes (and the mistakes of the Google translator)
- "Open a Backup file" feature: you will able to filter/select/open one backup file
- "Delete" feature: (filter, select and delete one or more backup files)
- Custom date/time based filters for selecting the relevant backup files
- en-EN, hu-HU, de-DE, it-IT, es-ES, ru-RU, fr-FR localized labels (see them in the macro code). If you want (and if you can) help me, then please send back the modified, fixed strings to me.
Here is the localization part of my code:
Code: Select all
Option explicit
'Localization
Function GetPickerTitle(sLocal as string) as string
Dim sResult as string
Select Case sLocal
Case "en-EN": sResult = "Manage Backup files"
Case "hu-HU": sResult = "Biztonségi mentések kezelése"
Case "de-DE": sResult = "Backup-Dateien verwalten"
Case "it-IT": sResult = "Gestisci i file di backup"
Case "es-ES": sResult = "Administrar archivos de copia de seguridad"
Case "ru-RU": sResult = "Управление резервными файлами"
Case "fr-FR": sResult = "Gérer les fichiers de sauvegarde"
Case else: sResult = "Manage Backup files"
End Select
GetPickerTitle = sResult
End function
Function GetDelButtonLabel(sLocal as string) as string
Dim sResult as string
Select Case sLocal
Case "en-EN": sResult = "Delete"
Case "hu-HU": sResult = "Törlés"
Case "de-DE": sResult = "Löschen"
Case "it-IT": sResult = "Elimina"
Case "es-ES": sResult = "Borrar"
Case "ru-RU": sResult = "Удалить"
Case "fr-FR": sResult = "Supprimez"
Case else: sResult = "Delete"
End Select
GetDelButtonLabel = sResult
End function
Function GetLoadButtonLabel(sLocal as string) as string
Dim sResult as string
Select Case sLocal
Case "en-EN": sResult = "Open"
Case "hu-HU": sResult = "Megnyitás"
Case "de-DE": sResult = "Öffnen"
Case "it-IT": sResult = "Aperto"
Case "es-ES": sResult = "Abierto"
Case "ru-RU": sResult = "Открыть"
Case "fr-FR": sResult = "Ouvrir"
Case else: sResult = "Open"
End Select
GetLoadButtonLabel = sResult
End function
Function GetFilterItem(sLocal as string, iFilterItem as integer) as string
Dim sResult as string
Select Case sLocal
Case "en-EN"
Select Case iFilterItem
Case 0: sResult = "All Backups of this document"
Case 1: sResult = "Actual month's Backups of this document"
Case 2: sResult = "Previous month's Backups of this document"
Case 3: sResult = "Today's Backups of this document"
Case 4: sResult = "Yesterday's Backups of this document"
Case 5: sResult = "All of Backup files"
Case 6: sResult = "Today's Backups of all documents"
Case 7: sResult = "Yesterday's Backups of all documents"
end Select
Case "hu-HU"
Select Case iFilterItem
Case 0: sResult = "Ennek a fájlnak a mentései"
Case 1: sResult = "Ennek a fájlnak az e havi mentései"
Case 2: sResult = "Ennek a fájlnak az előző havi mentései"
Case 3: sResult = "Ennek a fájlnak a mai mentései"
Case 4: sResult = "Ennek a fájlnak a tegnapi mentései"
Case 5: sResult = "Az összes mentett fájl"
Case 6: sResult = "A mai összes mentett fájl"
Case 7: sResult = "A tegnapi összes mentett fájl"
end Select
Case "de-DE"
Select Case iFilterItem
Case 0: sResult = "Alle Backups dieses Dokuments"
Case 1: sResult = "Aktuelle Monats-Backups dieses Dokuments"
Case 2: sResult = "Backups dieses Dokuments vom Vormonat"
Case 3: sResult = "Die heutigen Backups dieses Dokuments"
Case 4: sResult = "Die gestrigen Backups dieses Dokuments"
Case 5: sResult = "Alle Sicherungsdateien"
Case 6: sResult = "Heutige Backups aller Dokumente"
Case 7: sResult = "Gestern Backups aller Dokumente"
end Select
Case "it-IT"
Select Case iFilterItem
Case 0: sResult = "Tutti i backup di questo documento"
Case 1: sResult = "Backup del mese effettivo di questo documento"
Case 2: sResult = "Backup del mese precedente di questo documento"
Case 3: sResult = "I backup di oggi di questo documento"
Case 4: sResult = "I backup di ieri di questo documento"
Case 5: sResult = "Tutti i file di backup"
Case 6: sResult = "I backup di oggi di tutti i documenti"
Case 7: sResult = "I backup di ieri di tutti i documenti"
end Select
Case "es-ES"
Select Case iFilterItem
Case 0: sResult = "Todas las copias de seguridad de este documento"
Case 1: sResult = "Copias de seguridad del mes real de este documento"
Case 2: sResult = "Copias de seguridad de este documento del mes anterior"
Case 3: sResult = "Copias de seguridad de hoy de este documento"
Case 4: sResult = "Copias de seguridad de ayer de este documento"
Case 5: sResult = "Todos los archivos de respaldo"
Case 6: sResult = "Copias de seguridad de todos los documentos de hoy"
Case 7: sResult = "Copias de seguridad de todos los documentos de ayer"
end Select
Case "ru-RU"
Select Case iFilterItem
Case 0: sResult = "Все резервные копии этого документа"
Case 1: sResult = "Фактические резервные копии этого документа за месяц"
Case 2: sResult = "Резервные копии этого документа за предыдущий месяц"
Case 3: sResult = "Сегодняшние резервные копии этого документа"
Case 4: sResult = "Вчерашние резервные копии этого документа"
Case 5: sResult = "Все файлы резервных копий"
Case 6: sResult = "Сегодняшние резервные копии всех документов"
Case 7: sResult = "Вчерашние резервные копии всех документов"
end Select
Case "fr-FR"
Select Case iFilterItem
Case 0: sResult = "Toutes les sauvegardes de ce document"
Case 1: sResult = "Sauvegardes du mois réel de ce document"
Case 2: sResult = "Sauvegardes du mois précédent de ce document"
Case 3: sResult = "Sauvegardes d'aujourd'hui de ce document"
Case 4: sResult = "Sauvegardes d'hier de ce document"
Case 5: sResult = "Tous les fichiers de sauvegarde"
Case 6: sResult = "Sauvegardes d'aujourd'hui de tous les documents"
Case 7: sResult = "Sauvegardes d'hier de tous les documents"
end Select
Case else
Select Case iFilterItem
Case 0: sResult = "All Backups of this document"
Case 1: sResult = "Actual month's Backups of this document"
Case 2: sResult = "Previous month's Backups of this document"
Case 3: sResult = "Today's Backups of this document"
Case 4: sResult = "Yesterday's Backups of this document"
Case 5: sResult = "All of Backup files"
Case 6: sResult = "Today's Backups of all documents"
Case 7: sResult = "Yesterday's Backups of all documents"
end Select
End Select
GetFilterItem = sResult
End function
Function GetMsgBoxTitle(sLocal as string) as string
Dim sResult as string
Select Case sLocal
Case "en-EN": sResult = "Confirmation request:"
Case "hu-HU": sResult = "Megerősítés kérése:"
Case "de-DE": sResult = "Bestätigungsanfrage:"
Case "it-IT": sResult = "Richiesta di conferma:"
Case "es-ES": sResult = "Solicitud de confirmación"
Case "ru-RU": sResult = "Запрос подтверждения:"
Case "fr-FR": sResult = "Demande de confirmation:"
Case else: sResult = "Confirmation request:"
End Select
GetMsgBoxTitle = sResult
End function
Function GetMessage(sLocal as string) as string
Dim sResult as string
Select Case sLocal
Case "en-EN": sResult = "Are you sure you want to delete the following file?"
Case "hu-HU": sResult = "Biztosan törölni kívánja az alábbi fájlt?"
Case "de-DE": sResult = "Möchten Sie die folgende Datei wirklich löschen?"
Case "it-IT": sResult = "Sei sicuro di voler eliminare il seguente file?"
Case "es-ES": sResult = "¿Seguro que quieres borrar el siguiente archivo?"
Case "ru-RU": sResult = "Вы действительно хотите удалить следующий файл?"
Case "fr-FR": sResult = "Êtes-vous sûr de vouloir supprimer le fichier suivant?"
Case else: sResult = "Are you sure you want to delete the following file?"
End Select
GetMessage = sResult
End function
'_____________________________________________________________________________