Sub copyfiles()
'Updateby http://www.hardipdabhi.wordpress.com
Dim xRg As Range, xCell As Range
Dim xSFileDlg As FileDialog, xDFileDlg As FileDialog
Dim xSPathStr As Variant, xDPathStr As Variant
Dim xVal As String
On Error Resume Next
Set xRg = Application.InputBox("Please select the file names:", "www.hardipdabhi.wordpress.com", ActiveWindow.RangeSelection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xSFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
xSFileDlg.Title = "Please select the original folder:"
If xSFileDlg.Show <> -1 Then Exit Sub
xSPathStr = xSFileDlg.SelectedItems.Item(1) & "\"
Set xDFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
xDFileDlg.Title = "Please select the destination folder:"
If xDFileDlg.Show <> -1 Then Exit Sub
xDPathStr = xDFileDlg.SelectedItems.Item(1) & "\"
For Each xCell In xRg
xVal = xCell.Value
If TypeName(xVal) = "String" And xVal <> "" Then
FileCopy xSPathStr & xVal, xDPathStr & xVal
End If
Next
End Sub
राजपूत वीरता का प्रतीक भारत की धरती ने कई वीर योद्धाओं को जन्म दिया है, लेकिन जब बात शौर्य, त्याग और स्वाभिमान की आती है, तो राजपूतों का नाम सबसे ऊपर आता है। इतिहास के पन्नों में दर्ज इन राजाओं की कहानियाँ सिर्फ युद्ध की नहीं, बल्कि आत्मसम्मान और संस्कृति की भी मिसाल हैं। इस ब्लॉग श्रृंखला में हम जानेंगे 1000 राजपूत राजाओं के बारे में, जिन्होंने भारतीय इतिहास को आकार दिया — भाग दर भाग। आइए शुरू करते हैं पहले भाग से... पहले 25 प्रसिद्ध राजपूत राजाओं के नाम और विवरण: क्र. राजा का नाम विवरण 1 महाराणा प्रताप :- मेवाड़ के राजा, अकबर से हल्दीघाटी की लड़ाई लड़ी, स्वतंत्रता का प्रतीक। 2 पृथ्वीराज चौहान :- अजमेर और दिल्ली के शासक, मोहम्मद गोरी को दो बार हराया। 3 राणा सांगा :- राणा प्रताप के पूर्वज, बाबर से...
Comments
Post a Comment
अपनी राय और सवाल यहाँ शेयर करें! कृपया अपने कमेंट्स में फालतू के स्पैम लिंक्स न डालें। आपके कीमती सुझावों का हमेशा स्वागत है।